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Piccola guida per 
l’input 
dei programmi 


I programmi pubblicati da SUPERSINC sono stati ac- 
curatamente provati e verificati: in questo modo spe- 
riamo di avere ridotto al minimo la possibilità di errori. 
Nel caso comunque un programma dovesse presentare 
malfunzionamenti, pubblicheremo le modifiche da ap- 
prontare in uno dei numeri immediatamente successivi 
della rivista. 

Per utilizzare i programmi pubblicati è sufficiente digi- 
tare i relativi listati sulla tastiera del calcolatore. 

Nel caso dello ZX SPECTRUM, abbiamo previsto una 
semplice decodifica dei tasti da digitare nel modo grafi- 
co, per semplificare la comprensione dei listati. 
Come è noto, lo SPECTRUM è provvisto di 2 serie di 
tasti grafici: una prima serie di 16 caratteri grafici pre- 
definiti (i tasti numerici da 1 a 8 e gli stessi “shiftati”) 
e una serie di caratteri definibili dall’utente nell’ambito 
di un programma (le lettere da A a U). 

In entrambi i casi per ottenere i caratteri desiderati 
occorre entrare in modo grafico (cursore contrassegna- 
to dalla lettera G lampeggiante), premendo contempo- 
raneamente i tasti CAPS-SHIFT e 9. 

Nei nostri listati i caratteri grafici predefiniti sono indi- 
cati da una Q seguita dal numero corrispondente al 
testo che occorre digitare, il tutto racchiuso tra due 
EE graffe. 


nt 
{G2} 
{G3} 
{G4} 
{G5} 
{G6} 
{G7} 
{68} 
{SG1} 
{SG2} int 


G, entrateci 


{sc3} as 
{sc4} iS 
{SG5} : 
{SG6} 
{SG7} 


{sG8} 


Se dovete 
uscire dal 
modo G, 


schiacciate 9 


E° "30 LPUdS ns 


RELA 
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Ad esempio { G4} significa che occorre digitare il tasto 
4, con il cursore in modo grafico. 

Analogamente la codifica SG, seguita da un numero 
da 1 a 8, significa che occorre digitare il relativo tasto 
numerico, premendo contemporaneamente il tasto 
CAPS-SHIFT. 

Ad esempio quando, si trova la codifica (02) occorre 
premere il tasto 2 contemporaneamente al tasto CAPS- 
SHIFT, ovviamente con il cursore in modo grafico. In 
entrambi i casi precedenti, quando un simbolo grafico 
deve essere digitato più volte, i caratteri G o SG della 
codifica sono preceduti da un numero che specifica 
quante volte va premuto il tasto grafico indicato. 

Così ad esempio {8G5} significa che il tasto grafico 5 
va digitato 8 volte e analogamente {4SG1} indica che 
il tasto grafico 1 e CAPS-SHIFT devono essere battuti 
4 volte. 

I caratteri grafici definibili (le lettere da A a U in modo 
grafico) hanno una codifica semplificata: la lettera cor- 
rispondente, sottolineata. 

Quando in un listato viene presentata, ad esempio, una 
A sottolineata occorre entrare in modo grafico (al solito 
premendo contemporaneamente i tasti CAPS-SHIFT 
e 9) e quindi digitare semplicemente il tasto che con- 
n la lettera A. 


Simbolo grafico 
definito nel 
programma in uso. 


Se non siete 


già in modo EG 
G, entrateci Se dovete 
schiacciando K uscire dal 
contempora- modo G, 
neamente 
CAPS SHIFT 
e9 


x 


Ia IP RJUH|[TIO HF N] 


schiacciate 9 


L 


DUCONDOO] 


IGIH MID O ]Tv [OZ 


I e novità sono nell’aria. 


Dal numero di ottobre, infatti, abbiamo pensato di creare, attorno alle 
nostre riviste, nuovo e speriamo sempre più ampio interesse. 
Vediamo come: prima di tutto la rivista avrà 16 pagine in più; pagine che 
avranno carattere giornalistico e quindi non listati, ma articoli di vario 
genere, da leggere per cultura o informazione. 
Tra le varie iniziative vi è la realizzazione di due nuove riviste mensili: 
SuperMSX e SuperApple. Tra voi c’è forse chi occhieggia un sistema più 
evoluto e uno sguardo alle nuove testate J.soft può sempre essere utile. 
Ad ottobre parte anche la campagna abbonamenti, tradizionale ed impor- 
tantissimo evento editoriale per tutte le riviste. 
Gli abbonati alle nostre pubblicazioni hanno sofferto un po’ in passato, 
causa un certo disservizio generato da tutta una serie di piccoli problemi, 
che, sommati, hanno provocato i guai che noi per primi abbiamo lamenta- 
to. 
Le cose da questo punto di vista si stanno normalizzando e siamo in grado 
di garantire fin d’ora, per l'immediato futuro e per quanto in nostro potere, 
un eccellente servizio, poiché la periodicità sarà finalmente rispettata e il 
servizio abbonati diverrà decisamente più efficiente, grazie a nuove proce- 
dure più veloci e più “snelle”. 
Chiediamo per l'ennesima volta scusa agli abbonati, pregandoli di voler 
considerare chiusa una spiacevole parentesi. 
Il nostro impegno si fa e si farà sempre più concreto, confidando nel 
costante interesse e apprezzamento che finora ci avete dimostrato ... 
nonostante tutto! 


Pietro Dell’Orco 


Gli 
ultimi 
saranno 


primi? 


Anche se, in ordine di tempo, 
siamo gli ultimi a uscire con libri 
“dedicati” ai più diffusi home e 
personal computer, siamo convinti 
che il lettore attento ed esigente 
apprezzerà la qualità dei contenuti 
e la loro presentazione. 

Abbiamo selezionato e tradotto i 
best-seller mondiali che accolgono 
quanto di più utile è stato scritto 
per il tuo computer. 


Puoi ordinare direttamente i titoli presentati 
compilando ed inviando il coupon pubblicato 
oppure acquistarli presso i più qualificati 
computer shop e le migliori librerie. 
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CEDOLA DI ORDINAZIONE - LIBRI 


Compilare e spedire in busta chiusa a: 
J. soft - Viale Restelli 5 - 20124 Milano 
tel. 02/6880841-6880842-6880843 


Ordino i seguenti libri par un importo totale di L. ................... 
+ L. 2.000 come contributo fisso per spese di spedizione 


Codice nane Codipescranini lato 
Cod. ... 
Cod! ... 


OD Contanti allegati 
O Assegno allegato N° ......................... È 
O Hospedito l'importo a mezzo vaglia postale 


O Hoversato l'importo sul CCP n° 19445204 intestato a 
1. soft - Milano 


O Pagherò in contrassegno al postino al ricevimento dei 
volumi 


Giochi fantastici per il C 64 ‘ 


Cod. ASOC 001 L. 42.000 


(inclusa cassetta) 


Un libro pensato e 
realizzato per il 


divertimento dell'utente 8 


del C 64; contiene 19 


giochi di vario genere tuttiÉ \ 


ampiamente commentati. 
L’attento studio dei 
programmi potrà essere 
vantaggioso per 
l'apprendimento delle 
tecniche di 
programmazione. 


Il libro del C 64 

Volume 1 

Cod. ASOC 010 L. 24.000 
(inclusa cassetta) 

Il libro del C 64 


Volume 2 


Cod. ASOC 0171 L. 24.000 % 


(inclusa cassetta) 


I due libri illustrano a 
fondo le possibilità del 
Commodore 64. Un 
compendio di utili 
consigli, e quant'altro è 
necessario per conoscere 
meglio il proprio 
calcolatore. Esempi pratici 
completano l'esposizione 
in modo chiaro ed 
esauriente. 


Inoltre, i Paper Book: la 
raccolta dei programmi 
suddivisi per macchina di 
Paper Sott, il primo 
settimanale di software su 
carta per il tuo computer. 


Paper Book - programmi 
per Apple // - 

Cod. ASOC 005 L. 18.000 
Paper Book - programmi 
per VIC 20 - 

Cod. ASOC 003 L. 18.000 
Paper Book - programmi 
per Commodore 64 - 


Cod. ASOC 004 L. 18.0005î 
Paper Book - programmi ‘’ 


per Texas TI 99/4A - 
Cod. ASOC 007 L. 18.000 
Paper Book - programmi 
per ZX Spectrum - 

Cod. ASOC 006 L. 18.000 


J sore. 


Per ZX Spectrum 


15 giochi grafici per 

ZX Spectrum 

Cod. ASOC 002 L. 24.000 
(inclusa cassetta) 


Un fantastico volume con 
15 entusiasmanti giochi 
gore per il tuo ZX 
pectrum. Tutti i 
programmi sono “pronti 


Viale Restelli, 5 - 20124 Milano - tel. 02/6880841-6880842-6880843 


C 64: suono e grafica - 
Volume 1 

Cod. ASOC 008 L. 24.000 
(inclusa cassetta) 

C 64: suono e grafica - 
Volume 2 

Cod. ASOC 009 L. 24.000 
(inclusa cassetta) 


Due volumi che non 


ì\ possono mancare nella 


biblioteca dell'utente 
Commodore. Una miniera 
di idee e suggerimenti per 
la programmazione del 
tuo personal computer. 
Una vasta serie di 
programmi esemplificativi 
guidano il lettore al 
miglior sfruttamento del 
Commodore 64. 


all'uso” e ampiamente 
commentati. | programmi 
sono scritti sfruttando 
appieno le capacità del 
calcolatore ed il loro 
studio può giovare a 
chiunque intenda affinare 
le proprie tecniche di 
programmazione. 


In ogni volume, 
corredato di cassetta, 
oltre 40 programmi 

per il tuo computer: 
giochi grafici, 

utility, arcade, 
adventure una miscela 
esplosiva di software 
“pronto all'uso”! 


Sono OUT con e IN... 
Carissimo SUPERSINC 
ho terminato l’interfaccia, il monitor son- 
da e l’interfaccia per il joystick descritti 
da Marcello Spero nelle diverse puntate 
apparse su SUEPRSINC. Sembra che 
tutto sia OK. Scrivo “sembra” perché in 
OUT l’insieme funziona a meraviglia, 
mentre in IN non riesco a farla funziona- 
re con il vostick. 

Mi spiego meglio: se inserisco un pro- 
gramma non riesco a utilizzare il joystick 
con l'interfaccia, mentre con il program- 
ma 

10 PRINT AT 10,10; IN 31 

20 GOTO 10 

visualizzano i valori 1-2-4-8-16, rispetti- 
vamente con DO-D1-D2-D3-DA. 

Vorrei inoltre chiederti se con questa in- 
terfaccia posso pilotare la stampante GP 
100 A della Seikosha e al DEC printer 
III della Digital. 

Ti ringrazio e aspetto altre novità su SU- 
PERSINC. 

G. Lucio Bregoli - Brescia 


R. Risponde Marcello Spero: 
Carissimo G. Lucio, 

ti includo con piacere nel nostro di 
quanti hanno avuto successo nella rea- 
lizzazione del nostro progetto di inter- 
faccia. 

Se infatti il programmino di verifica ti 
dà i risultati che dici, si può dire con 
sicurezza che è a posto anche la sezione 
di input . 

Quanto all’altro problema, direi che 
non riguarda l’hardware (computer ed 
interfaccia) ma il software che utilizzi. 
Perché un “game” possa rispondere ai 
comandi di un joystick collegato alla no- 
stra interfaccia, è necessario che di- 
sponga dell’opzione “Kempston jou- 
stick” (e, ovviamnte, che questa sia sta- 
ta selezionata prima di iniziare ad usare 
il programma). 

Come è stato spiegato nel corso della 
realizzazione, infatti, la nostra interfac- 
cia è “Kempston compatibile”, cioè i 
suoi segnali sono codificati secondo 
questo standard. 

L’unico standard di interfaccia in grado 
di funzionare contemporaneamente alla 
tastiera (ne usa infatti gli stessi indirizzi) 
è il Protek-Sinclair. 

Passando alle possibilità di utilizzo del- 


l'interfaccia per pilotare stampanti di 
tipo parallelo (come sono i due modelli 
che hai citato), c'è da dire che la cosa 
è in teoria possibile. Le modifiche da 
apportare sarebbero comunque non po- 
che. 

Il vero problema è comunque la realiz- 
zazione del software di interfaccia, che 
realizzi un adeguato “protocollo” di col- 
legamento secondo lo standard Centro- 
nics. L’idea è però interessante, e non 
è detto che non possa essere sviluppata 
in una futura puntata di REM. 


Wet Jet Silly 
Caro SUPERSINC, 
sono un ragazzo di 13 anni e ho da alcu- 
ni mesi uno Spectrum 48K. 
Fra i giochi che ho, quello che mi ha più 
entusiasmato è stato Jet Set Willy, che 
è diventato per me una vera e propria fis- 
sazione. 
Nonostante tutto il mio impegno, infatti, 
non sono ancora riuscito a trovarne la so- 
luzione. 
Ti prego, se possibile, di dare modo al 
mio stanchissimo Willy di andare final- 
mente a letto. 
Sarebbero molto graditi anche i trucchet- 
ti vari per avere qualche omino in più o 
magari per prendere alcuni oggetti “ma- 
ledetti”. 
Un'altra soddisfazione che mi vorrei to- 
gliere è di vedere sul video del mio com- 
puter una bella spirale. Come si fa? 
Tanti complimenti per la bellissima rivista 
(grazie! N.d.R) e l’altrettanto bella casset- 
ta. 
Sperando di leggere su uno dei prossimi 
numeri questa lettera e, soprattutto, le 
risposte ai miei quesiti, ti ringrazio e ti 
saluto di cuore. 
Pietro Maccari 
Colle di Val D'Elsa (SI) 


Caro Pietro, 

scusaci se siamo un po’ in ritardo nel 
risponderti. Per farci almeno in parte 
perdonare, abbiamo cercato di accon- 
tentarti il più possibile. Al capitolo Jet 


Set Willy ti forniamo alcune POKE dav- 
vero micidiali, da inserire in una riga 35 
del programmino caricatore del gioco, 
comunque subito prima dell’istruzione 
RANDOMIZE USR 33792, che dà ini- 
zio al gioco: 


POKE 35899,0 ti dà non solo “qual- 
che”, ma addirittura infiniti omini in più 
a disposizione; anche se l’abbiamo già 
pubblicata, la ripetiamo, per distratti e 
ritardatari. 


POKE 36477,1 permette a Willy di ca- 
dere da qualsiasi altezza senza morire. 
Non male, eh? 


POKE 59900,0 elimina il perverso mec- 
canismo ideato dall’autore del gioco 


che provoca morti casuali visitando l’at- 
tico della villa di Willy. 


POKE 35123,0 è veramente favolosa: 
toglie dal gioco tutti gli oggetti in movi- 
mento! 


POKE 37874,0 infine, raccoglie auto- 
maticamente (!) tutti gli oggetti presenti 
in ogni stanza visitata da Willy. 


Ci pare che sia abbastanza, anche se, 
ricordalo, Jet Set Willy rimane tutt'altro 
che facile, anche approfittando di note- 
voli agevolazioni come quelle riporta- 
te. 

Venendo alla spirale, non si tratta di 
una cosa molto difficile: per capirne il 
funzionamento basterà guardare in 
azione il programma pubblicato qui sot- 
to. : 

Ricordati solo che il passo della spirale, 
richiesto in input, deve esere diverso da 
0. Un passo ideale è tra 5 e 10: con 1 
l’effetto è più che altro decorativo, men- 
tre 2 è il primo passo utile per riuscire 
a intuire la spirale. 

Il programma non possiede controlli di 


70 INPi? "passo?",passo''"increment 
o?" ,incremento 

80 LET base=0 " 

90 LET £=0 

100 PLOT 127,84 

110 LET base=base+pa550 Li 

120 DRAW ( (NO £)-f)*base,0,PI 

130 LET passo=passo+incrsmento 

140 LET E=NOT £ 

150 GO TO 119 
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nessun genere, e si bloccherà con un 
errore non appena la spirale diverrà 
troppo ampia per essere contenuta nel- 
lo schermo. 


Un televisore da SCARTare? 
Sono un vostro nuovo abbonato e come 
tale approfitto subito per sottoporvi un 
quesito ed eventualmente leggerne la ri- 
sposta nella pagina della posta della rivi- 
sta. 
Sono entrato in possesso di un televisore 
da 10” della Philips, denominato “Ma- 
net”. 
Il suddetto televisore — oltre che ricevere 
i normali programmi della televisione — 
può essere utilizzato anche come moni- 
tor per home computer. 
Ho provato a collegare il mio Spectrum 
48K al televisore in modo monitor, non 
ottenendo però alcun risultato: non sono 
riuscito a collegarmi. 
Prima di effettuare il collegamento ho 
provveduto a modificare l'uscita TV del- 
lo Spectrum, collegando uno spezzone 
di cavo coassiale a monte del modulatore 
e la calza a massa, quindi ho collegato 
la nuova uscita ottenuta ai piedini 20 e 
17 della presa SCART del televisore, ma, 
come ho detto prima, non ho ottenuto 
nessun risultato. Mi sono rivolto allora‘al 
rivenditore per avere spiegazioni, ma, 
come sempre accade, quest’ultimo non 
è stato in grado di fornirmele; mi rivolgo 
quindi a SUPERSINC, sperando di otte- 
nere tutte quelle indicazioni e suggeri- 
menti per poter utilizzare il monitor. 
Allego una fotocopia dello schema elet- 
trico del televisore, per la sola parte dei 
collegamenti dello zoccolo SCART. 
Vincenzo Pilati - Bologna 


Purtroppo non siamo in grado di darle 
un consiglio esaustivo: la procedura da 
lei seguita è corretta, né l’esame dello 
schema del televisore ha rivelato possi- 
bili malfunzionamenti o difetti di costru- 
zione. L’unico punto non chiaro della 
lettera è quello in cui lei dice di avere 
collegato “la calza a massa”: il cavo de- 
ve essere collegato a uno dei terminali 
di ingresso del modulatore e la calza 
all’altro. Se lei ha effettivamente opera- 
to in questo modo, l’unico consiglio che 
possiamo darle è quello di provare a 
invertire i collegamenti di cavo e calza. 


TurboLOAD 
Spettabile redazione di SUPERSINC, 
sono un ragazzo di 14 anni e sono un 
orgoglioso possessore di uno Spectrum 
48K. 
Ho un piccolo problema: sono un tipo 
impaziente e perdo la voglia di caricare 
i programmi quando questi sono troppo 
lunghi. Vorrei chiedervi se si potrebbe 
escogitare un sistema per rendere i listati 
più corti, magari aumentando la velocità 
di registrazione o altro...non so proprio 
che fare. Vi prego, rispondetemi! 
Fabio Ramassotto —- Roma 


Caro Fabio, 


capiamo la tua impazienza, ma la tro- 
viamo un pochino esagerata. Pensa agli 
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utenti Commodore: senza routine come 
il Turbotape i loro tempi di caricamento 
possono anche triplicarsi rispetto a 
quelli Spectrum! Questi ultimi sono già 
tra i migliori (parlando di cassette) e, 
oltretutto, gli ultimi programmi usciti 
delle migliori software house inglesi pre- 
vedono tutti qualche sistema di compat- 
tamento dei dati che consente di ridurre 
la durata del caricamento. Per parte 
nostra la tua è un’idea che metteremmo 
volentieri in pratica, solo che non pos- 
siamo farlo, pena una diminuzione di 
affidabilità delle cassette allegate alla 
rivista. La soluzione più comoda è quel- 
la di affidarsi, dove sia possibile, ai 
microdrive o a un disk drive (un “Jet 
Set Willy” su cartuccia parte in una 
quindicina di secondi): altrimenti non ti 
rimane che... diventare più paziente. 


det Set Map 
Cara redazione di SUPERSINC, 
allego a questa lettera una preziosissima 
mappa di “Jet Set Willy”... 
Gabriele Raccio 
Pietramelara (CE) 


Caro Gabriele, la tua mappa è ottima: 
il suo unico difetto è di risultare piutto- 
sto confusa, al punto che spiegarla sulla 
rivista sarebbe davvero cosa ardua. 
Perché non provi a ridisegnarla, detta- 
gliandola meglio e rendendola più chia- 
ra? Noi intanto aspettiamo con fidu- 
cia... 


Facciamo cifra tonda 
Sono un vostro fedele lettore da tempo 
ed approfitto dell’occasione per farvi i 
miei complimenti per la rivista; in più 
vorrei che mi aiutaste a risolvere un mio 
quesito. 
Nella stesura dei programmi mi trovo a 
volte a dover eseguire operazioni con 
numeri decimali del tipo 25457.32*7 = 
178201.24. Come posso fare per otte- 
nere col mio computer — uno Spectrum 
48K — un risultato senza decimali ed ar- 
rotondato automaticamente per eccesso 
o per difetto? 
Oppure, nell’eseguire un'operazione co- 
me 25457*7=178199 come posso fare 
per ottenere automaticamente un risulta- 
to arrotondato alle mille lire, sempre per 
eccesso o per difetto (cioè per difetto se 
le ultime cifre vanno da 1 a 500 e per 
eccesso se l’intervallo va da 501 a 999)? 
Massimo D’Ascenzo - Roma 


Nel primo caso occorre lavorare sulla 
variabile che memorizza il risultato del- 
l'operazione nel modo seguente: 


1) aggiungere 0.5; 
2) eseguire un'operazione del tipo LET 
nostra__variabile = INT nostra__varia- 


bile. 


Come si può facilmente intuire, questa 
procedura fa sì che tutti i valori decimali 
superiori a 0.49999999.... “slittino” a 


un valore di unità superiore (per esem- 
pio 14.7+0.5=15.2: INT 15.2 è uguale 
a 15), consentendo in questo modo an- 
che l'arrotondamento per eccesso. 
Anche il secondo caso si risolve in modo 
analogo: basta far diventare decimale 
la parte del risultato che vogliamo arro- 
tondare. Prendiamo l’esempio riportato 
più sopra e vediamo come operare: 


25457*7=178199 


Dobbiamo arrotondare 178199 alle mil- 
le lire. Allora dividiamo per mille: 


178199/1000=178.199 
aggiungiamo 0.5: 
178.199+-0.5=178.699 


prendiamo la parte intera del risulta- 
to: 


INT 178.699=178 
moltiplichiamo per mille: 


178*1000=178000 


l'arrotondamento è stato eseguito. 

Se avessimo dovuto arrotondare alle 
100 lire avremmo, nel primo e nell’ulti- 
mo passo della procedura, diviso e mol- 
tiplicato per 100; per le 10 lire avrem- 
mo diviso e moltiplicato per 10 e così 
via. 


Quien sabe? 
Spettabile redazione, 
sono un operatore agricolo della bassa 
modenese. Possiedo uno Spectrum 48K 
e vi scrivo per avere notizie relative ad 
applicazioni dello Spectrum in agricoltu- 
ra. 
Qualora vi fossero delle aziende agricole 
che ne fanno uso vorrei richiederne, se 
possibile, l’indirizzo. 
Se possibile preferirei una risposta priva- 
ta, anche perchè l’ambiente è piuttosto 
restio ad innovazioni di questo tipo. Par- 
landone in giro, la prospettiva di un im- 
piego del computer in agricoltura suscita 
diffidenza... 
Davide Cavallari 
Via Trento e Trieste 21 
41034 FINALE EMILIA MO 


Purtroppo, non sappiamo dirle se effet- 
tivamente esistano altri agricoltori inte- 
ressati all'applicazione dell’informatica 
in campo agricolo. Pubblichiamo tutta- 
via il suo indirizzo, così che chi volesse 
contattarla in merito possa farlo senza 
problemi. Per parte nostra ci auguria- 
mo che vengano presto superate le diffi- 
denze di cui sopra, tutto sommato 
espressione di una mentalità per certi 
aspetti eccessivamente conservatrice, e 
che comunque appare destinata, nel 
lungo periodo, a doversi modificare pro- 
gressivamente, per amore o per neces- 
sità. 

Ci tenga al corrente delle iniziative di 
sua conoscenza. 


Per collaborare a SUPERSINC 


La maggior parte dei seguenti suggerimenti ha lo scopo di migliorare l'accuratezza e la velocità 
di pubblicazione di un articolo; rispettando questi consigli si accresceranno le probabilità che 
un vostro lavoro venga pubblicato. La rivista è interessata ad articoli e programmi riguardanti 
la linea Sinclair. Siamo più interessati al contenuto di un articolo piuttosto che al suo stile, 
e soprattutto gli articoli devono essere chiari ed esaurienti. La seguente guida permetterà 
che le vostre buone idee e i vostri programmi vengano più facilmente accettati per la pubblica- 


zione: 


l’angolo superiore sinistro della prima pagina 
dovrà contenere: nome, cognome, indirizzo, 
numero telefonico, codice fiscale, data di spedi- 
zione, luogo e data di nascita. 
dio superiore destro della prima pagina 
dovrà contenere la marca e il tipo di compu- 
ter al quale il lavoro si riferisce, unitamente, alla 
configuraszione richiesta (memoria occorrente, 
eventuali periferiche e così via). 
3 titolo sottolineato dell’articolo dovrà iniizia- 
re a due terzi in altezza della prima pagina. 
4° pagine seguenti potranno essere battute 
normalmente, con la condizione che l’angolo 
superiore destro contenga un’abbreviazione del 
titolo e del cognome, unitamente al numero di 
pagina progressivo. Per esempio, Horace Goes... 
/Brambilla /2. 
Bitte le linee del testo dovranno essere battu- 
te con spazio 2 o spazio 3, e un margine di 
circa un centimetro dovrà trovarsi ad entrambi i 
lati dello scritto. 
dovrà essere usata una carta formato A4 e 
lo scritto dovrà occupare un solo lato del 
foglio (caratteri maiuscoli e minuscoli). 
7 fogli dovranno essere uniti con una clip. 


puo intenzione di spedire più di un artico- 
lo, questi dovranno essere inviati separata- 
mente insieme alla rispettiva copia su supporto 
magnetico. 
gra brevi (meno di 20 linee) potranno 
essere inseriti nel testo, mentre programmi 
più lunghi dovranno essere listati separatamente. 
E ESSENZIALE per noi disporre di una copia 
del programma registrata più volte su supporto 
magnetico, su entrambi i lati dello stesso. E prefe- 
ribile usare nastri di buona qualità e di lunghezza 
non eccessiva; la cassetta o il la cartuccia per 
Microdrive dovranno essere etichettati con il no- 
me dell’autore, il titolo dell’articolo, il titolo del- 


l’articolo, il computer interessato e soprattutto 
le eventuali espansioni richieste. Come suggeri- 
menti di programmazione si consiglia di usare 
per esigenze di stampa listati, le istruzioni INK, 
PAPER, INVERSE piuttosto che scrivere dietta- 
mente in INVERSE VIDEO. Un rapido controllo 
dei programmi per operare queste sostituzioni 
sarà da noi estremamente apprezzato. 
1 05 maggior chiarezza, all’interno dell’ar- 
ticolo è conveniente usare'caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio RE- 
TURN, LIST, RND, PRINT etc.). Se si desidera 
evidenziare una parola, è preferibile sottolinearla 
piuttosto che scriverla in carattere maiuscolo. 
1 1 gli articoli ed i programmi potranno avere 
qualsiasi lunghezza — da una routine di 
una sola linea fino a programmi molto complessi. 
peg includere fotografie, questi do- 
vranno avere formato 24x36, o 6X6, in 
bianco e nero o diapositive. 
1 30° prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 
editrici. 
1 4 compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 
all’interesse del programma (da un minimo di L. 
50.000 a un massimo di L. 300.000). Il paga- 
mento è effettuato in caso di pubblicazione del la- 
voro. 
1 5i materiale ricevuto e non pubblicato non 
verrà restituito. 


Spedite i vostri lavori a: 
SUPERSINC 
Via Rosellini, 12 
20124 Milano 
e saremo lietissimi di pubblicare i contri- 
buti migliori. 
La Redazione 
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Esaminiamo insieme la “Saga 1 
Emperor”, una delle più famose 
tastiere alternative disponibili 
per lo Spectrum “non-Plus”...e 
anche per il Plus 


ono passati ormai più di due anni 

dalla comparsa dello Spectrum sul 
mercato italiano, e il successo di questa 
stupefacente creazione della fertile 
mente di Sir Clive non accenna a dimi- 
nuire. 
I motivi? Provate a scrivere un elenco 
di suoi difetti...siete in difficoltà, vero? 
Con molta probabilità vi sarete bloccati 
dopo il primo della lista; lo Spectrum 
ha infatti un unico, grande (imperdona- 
bile?) difetto: la tastiera. 
Questo particolare tanto trascurato dai 
progettisti della Sinclair nel lontano 
1982, e ripreso tardivamente in consi- 
derazione con l’avvento dello Spectrum 
Plus (ma purtroppo non ci siamo ancora 
del tutto...), è stato ed è il grande handi- 
cap di questo computer. 


Perché cambiare tastiera? 


Vediamo brevemente quali dovrebbero 
essere le caratteristiche di una buona 
tastiera, e cosa ci offre il mercato. 

Diciamo innanzitutto che se i “gommini” 
dello Spectrum possono aver dato noia 
a più d’uno nella stesura dei program- 
mi, ci sono altri settori in cui questa 
carenza è stata determinante per la 
mancata diffusione di questo computer, 
per lo meno fino a poco tempo fa. 

Un campo di attività da cui lo Spectrum 
sembrava inesorabilmente escluso è 
quello dell’elaborazione di testi. La ta- 
stiera totalmente inadatta e la poco pra- 
tica memoria di massa a cassette audio 
avevano dissuaso anche i più temerari. 
Con l’avvento dei microdrive si è resa 
disponibile una memoria di massa velo- 
ce e adatta a questo genere di applica- 
zioni. Per quanto riguarda la tastiera da 
parte Sinclair non ci è pervenuto alcun 
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Sempre lo stesso tasto? 


di Marcello Spero 


La tastiera appena tolta dalla confezione, completa di accessori e ri- 
cambi. 


aiuto, almeno fino all’ingresso in com- 
mercio del Plus, che d’altra parte non 
sembra essere adatto ad una battitura 
molto veloce. 

Solo con una tastiera esterna tutta la 
potenza di programmi come Tasword II 
in combinazione con Masterfile può es- 
sere sfruttata. Per chi non avesse mai 
sentito parlare di questi due program- 
mi, che vengono offerti in omaggio con 
l'acquisto dell’interfaccia 1 e microdri- 
ve, diremo che si tratta di un word pro- 
cessor e di un data base, che possono 
funzionare in modo congiunto. 

In pratica, è possibile richiamare dal da- 
ta base (programma di archiviazione) le 
informazioni che interessano ed inserir- 
le all’interno di documenti o lettere pre- 


parati con il word processor. È interes- 
sante, in particolare, il cosiddetto “mail- 
merge”. Si tratta, in sostanza, di reperi- 
re all’interno dell’archivio tutti i nomina- 
tivi rispondenti a determinate caratteri- 
stiche, ed inserirli in posizione opportu- 
na all’interno di altrettante copie di una 
lettera standard. 

Una lettera di sollecito, ad esempio, sa- 
rà inviata a tutti i clienti in ritardo con 
i pagamenti. Della ricerca dei nominati- 
vi opportuni si occuperà il data base, 
esaminando le informazioni relative ad 
ognuno, mentre il word processor forni- 
rà una lettera adeguata. 

Anologo discorso potrebbe essere fatto 
per i programmi di calcolo tipo VU- 
Calc, poco sfruttabili con una tastiera 


che rende pazzesca l’introduzione di 
lunghe serie di dati numerici. 
Dicevamo delle caratteristiche di una 
buona tastiera. Quali sono? 

In effetti non c’è una regola fissa e rigo- 
rosa. L'essenziale è che i suoi tasti siano 
mobili quel tanto che basta ad accom- 
pagnare le dita ed a far percepire l’av- 
venuta pressione. In questo loro movi- 
mento dovrebbero essere morbidi, ma 
opporre una minima resistenza, e non 
“traballare” assolutamente. 

AI di là di queste caratteristiche di base, 
poco può essere detto in teoria. 

Solo la prova pratica può stabilire se 
una tastiera sia meglio di un’altra. 
Certo, un ruolo importante è giocato 
dall’ergonomia dei tasti, ossia la loro 
forma e posizione. Una tastiera mal fat- 
ta, con i tasti poco accessibili, anche se 
meccanicamente è perfetta, si farà no- 
tare dopo qualche ora di lavoro, quan- 
do le mani inizieranno a far male. D’al- 
tra parte, una tastiera ben studiata, ar- 
cuata, con la barra spaziatrice alla giu- 
sta altezza, darà subito una sensazione 
di grande comodità. 


Per lo Spectrum... 

Più in particolare, per quanto riguarda 
lo Spectrum c’è qualche altra conside- 
razione da fare. 

La sua tastiera originale è, infatti, un 
po’ troppo “piena”. Per contenere il nu- 
mero dei tasti i progettisti della Sinclair 
hanno riunito un gran numero di simboli 
su ciascun tasto. 

Di per sé questo non è un gran male; il 
guaio vero è che per selezionare di volta 
in volta l’uno o l’altro simbolo occorre 
premere continuamente uno dei due 
SHIFT, o tutti e due e poi ancora uno, 
come tutti ben sappiamo. 

Le soluzioni a questa situazione ingar- 
bugliata sono di due tipi. 


La tastiera vera e propria. Notare il gran numero di tasti a disposizio- 
ne e la posizione giocosa dei cursori. 


La prima, più sofisticata, prevede l’in- 
troduzione di nuovi tasti “autoshiftati”. 
Si tratta di tasti, premendo i quali viene 
automaticamente premuto anche lo 
SHIFT appropriato. Ecco allora appari- 
re un tasto per il punto, uno per la virgo- 
la, uno per il DELETE, uno per il modo 
EXTENDED, i tasti cursore. 

E intuitivo che la velocità e la semplicità 
d’uso fanno in questo modo un balzo in 
avanti. 

Il sistema appena visto è utilizzato dallo 
Spectrum Plus. 

Il secondo sistema è più semplice, ma 
non per questo meno efficace. 

Si tratta di duplicare i due SHIFT e 
collocarli vicino ai tasti che ne fanno un 


Per montare la Saga Emperor bisogna liberarsi della vecchia “carne 


morta”... 


uso frequente. Un passo ulteriore è 
quello di replicare alcuni dei tasti più 
usati e porli nelle vicinanze dello SHIFT 
adatto. 

Ecco così i due SHIFT l’uno accanto 
all’altro, per ottenere rapidamente il 
modo EXTENDED, una replica del ta- 
sto DELETE (lo 0) posta accanto al 
CAPS SHIFT, i quattro tasti cursore 
posti a croce con al centro il loro 
SHIFT. 

Un'ultima considerazione va fatta circa 
la realizzazione meccanica dei tasti. 
Quella “ortodossa” (e più costosa) pre- 
vede una coppia di contatti sigillati al- 
l'interno di una piccola scatoletta alla 
base di ciascun tasto. I tasti, ammortiz- 
zati a molla, vengono quindi fissati su 
di un’apposita base. 

Un sistema più economico è quello che 
ricalca un po’ la tastiera originale Spec- 
trum. I contatti non sono infatti isolati 
e sigillati, ma disposti su due fogli di 
plastica flessibile; la pressione dei tasti 
farà sì che questi due fogli si tocchino, 
realizzando il contatto elettrico. 
Ancora una volta, non è detto che que- 
sta soluzione sia più scadente della pri- 
ma, eccetto che nella durata, decisa- 
mente inferiore, dei contatti. Tutto di- 
pende da come è stata realizzata la so- 
spensione dei tasti. É qui, infatti, che 
“scivola” la tastiera originale. 


La Saga 1 Emperor 

Dopo aver dato un’occhiata alle carat- 
teristiche generali, eccoci a prendere in 
esame un prodotto presente sul merca- 
to italiano. 

Il suo nome è Saga 1 Emperor, ed è 
una delle ormai numerose tastiere ag- 
giuntive, da collegare con procedure 
più o meno complesse allo Spectrum. 
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Di cosa si tratta 


Prodotta dall’inglese Saga Systems Li- 
mited, 2 Eve Road, Woking, Surrey, ed 
importata da ATW Studio s.n.c. (via dei 
Pestagalli 7 — 20138 MILANO MI — 
tel. 02/502204), la SAGA 1 EMPE- 
ROR è una tastiera di dimensioni stan- 
dard, ad elevato numero di tasti (ben 
67), dal profilo estremamente basso, se- 
condo i più moderni dettami ergonomi- 
ci. I suoi tasti hanno una corsa di circa 
4 mm, con un lieve scatto che indica 
l'avvenuto contatto. 

La “carrozzeria”, di colore bianco avo- 
rio, ha uno “styling” davvero elegan- 
te. 

La sua parte inferiore è forata, per per- 
mettere l’inserimento dello Spectrum 
nel modo che vedremo più avanti. 
Una sorpresa è data dai simboli sui ta- 
sti, che non sono inseriti ad intarsio, co- 
me avviene normalmente nelle tastiere 
professionali, ma applicati per mezzo di 
una plastica autoadesiva. Sulla validità 
di questa scelta, probabilmente dettata 
dalla necessità di disporre di un prodot- 
to intercambiabile fra Spectrum e 
ZX81, torneremo alla fine della nostra 
prova. 

Per quanto riguarda i nuovi tasti c’è da 
dire innanzitutto che sono disposti tutti 
intorno a quelli “classici”, che ripetono 
esattamente, per posizione e funzione, 
quelli originali. Non si tratta, per rifarci 
al discorso appena fatto, di tasti “auto- 
shiftati”, ma di ripetizioni dei tasti nor- 
mali. 

I tasti replicati sono quelli che si sup- 
pongono di uso più frequente. Ciascun 
gruppo è disposto attorno ad un CAPS 
SHIFT o SYMBOL SHIFT, a seconda 
dell'esigenza. Troviamo così in alto a 
sinistra un SYMBOL SHIFT circondato 
dai tasti +,-,*,=,# e / (quest’ultimo 
purtroppo riporta la dicitura CLS). Si 
tratta, come abbiamo detto, dei normali 
tasti LIST, LOAD, BORDER, 3 e CLS; 
il loro uso “shiftato” risulta però di gran 
lunga più agevole, data la presenza cen- 
trale dello shift adatto. 

Più in basso ecco CAPS LOCK, GRA- 
PHICS, DELETE ed EDIT intorno ad 
un CAPS SHIFT. Sul lato destro altri 
due SYMBOL SHIFT: uno nella posizio- 
ne normale, l’altro circondato da virgo- 
la, due punti e punto e virgola. Pure 
vicini a uno shift si trovano i tasti curso- 
re, due a destra e due a sinistra. 

Per coronare questa abbondanza tro- 
viamo uno zero supplementare, un pun- 
to proprio di fianco al tasto originale 
corrispondente (la M) e ben due EN- 
TER, uno sopra l’altro. 

Una particolare nota di plauso va alla 
barra spaziatrice, di dimensioni genero- 
se, perfettamente allineata con gli altri 
tasti e dal movimento davvero perfet- 
to. 

Osservando la faccia inferiore della ta- 
stiera, notiamo che i suoi contatti sono 
disposti su due fogli di plastica flessibile, 
come quelli della tastiera originale. 

Il sistema di ammortizzamento, piutto- 
sto originale e senz’altro perfettamente 
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riuscito, si basa su piccoli coni di gom- 
ma, con funzione analoga a quella delle 
molle nelle tastiere “ricche”. E proprio 
la gomma, anzi, a realizzare quel “click” 
che è forse la caratteristica migliore del- 
la SAGA 1 EMPEROR. 

Da notare l’incernieramento della barra 
spaziatrice, realizzato nel modo più sofi- 
sticato, con staffa metallica stabilizzatri- 
ce. 

Visto comunque che si tratta di un pro- 
dotto fornito, per ovvie ragioni, in forma 
di kit, vediamo insieme cosa bisogna fa- 
re per passare dalla scatola alla tastiera 
funzionante, e che difficoltà possono 
sorgere. 


Proviamo... 


Aprendo la confezione la prima cosa 
che balza agli occhi è la tastiera, snella 
ed elegante. La scatola, però, non con- 
tiene solo questo. Guardando con più 
attenzione scopriamo uno spezzone di 
cavo piatto provvisto di due connettori 
alle estremità, un connettore maschio- 
maschio, una bustina di viti e dadi e, 
dulcis in fundo, un sacchetto contenente 
un’elegante “copertina” per proteggere 
dalla polvere la tastiera quando non vie- 
ne usata. 

Scavando ancora, troviamo un foglio di 
plastica autoadesiva, sagomata a qua- 
dratini e riportante i vari simboli da ap- 
plicare sui tasti; si tratta evidentemente 
di un ricambio. Ecco infine il foglio delle 
istruzioni, che iniziamo subito a legge- 
re. 

Con britannica precisione, per prima 
cosa sono elencati gli strumenti neces- 
sari all’installazione della nuova tastie- 
ra, che sono semplicemente due caccia- 
viti, uno piatto e uno a croce. 
Seguendo i passi indicati, per prima co- 
sa provvediamo ad aprire il nostro 
Spectrum, svitandone le viti alla base. 
Quindi, con estrema delicatezza, sfilia- 
mo dalle loro sedi i due contatti multipli 
su banda di plastica, che collegano la 
tastiera originale al resto del sistema. 
Passiamo adesso allo smontaggio della 
nuova tastiera, allo scopo di prepararla 
all’“innesto”. Per questo è necessario 
prima di tutto rimuovere le due viti che 
ne bloccano l’involucro, e quindi sepa- 
rare la tastiera vera e propria dalla base 
in plastica. 

La base va ora avvitata saldamente allo 
Spectrum, per mezzo delle quattro viti 
fornite. I relativi dadi vanno tenuti in 
posizione con due dita. 

Ora possiamo inserire i contatti della 
nuova tastiera nei connettori (quelli da 
cui avevamo precedentemente tolto i 
contatti della tastiera originale). Segue 
il bloccaggio della tastiera alla sua base 
e la chiusura dell’involucro. 

L’intero procedimento a noi ha richiesto 
all'incirca dieci minuti, e non è escluso 
che si possa eseguire in un tempo anche 
inferiore. 

Da segnalare sono due piccoli inconve- 
nienti, peraltro facilmente eliminabili. 
Prima di tutto una delle due piste in 
plastica recanti i contatti da inserire è 


risultata troppo larga, ed ha richiesto 
una “rifilatina” a mezzo forbici. 

In seguito, avvitando la tastiera alla sua 
base, due delle viti che fissano lo Spec- 
trum premevano contro la sua parte in- 
feriore, causando falsi contatti. 

Anche qui si è resa necessaria una “po- 
tatura”, questa volta a mezzo pinze. 
Si tratta, lo ripetiamo, di inconvenienti 
che nulla tolgono alla validità del pro- 
dotto. 


Funziona! 


Ed eccoci al risultato finale. L’ibrido Sa- 
ga-Spectrum è stabile e solido, corretta- 
mente inclinato e comodo da usare. 
Confessiamo di essere rimasti un attimo 
sconcertati, di fronte a tutti questi tasti. 


Ecco come la scheda madre dello 
Spectrum va alloggiata nel suo 
nuovo involucro. 


Colleghiamo la nuova tastiera al- 
la scheda madre... 


.»..Assicuriamo la tastiera... 


Fatta la mano, comunque, la sensazione 
è quella di avere a che fare con un’altra 
macchina, dal prezzo ben più elevato. 
I tasti si fanno trovare da soli, ed il loro 
“click” sotto le dita dà sicurezza e velo- 
cità. 

La nostra prova si è svolta su due terre- 
ni: la scrittura di un programma e la 
battitura di un brano di testo, utilizzan- 
do il ben noto word processor Tasword 
II, cui abbiamo accennato all’inizio. 
Nel primo caso la velocità è a dir poco 
raddoppiata, grazie soprattutto alla 
possibilità di compiere con una sola ma- 
no tutte quelle operazioni (EDIT, DELE- 
TE, passaggio ai modi GRAPHICS ed 
EXTEND) che prima ne richiedevano 
due. 

Per quanto riguarda l’uso dello Spec- 
trum con un word processor vale quan- 
to detto nell’introduzione, tenendo pre- 
sente che la risposta dei tasti è quasi 
ideale. 

Fastidiosa invece, in entrambe le prove, 
la superficie della plastica autoadesiva 
che ricopre i tasti. Peccato davvero, vi- 
sto che il materiale dei tasti offrirebbe 
invece una sensazione ottima, come di- 
mostra la barra spaziatrice, unico tasto 
non rivestito. 

A proposito di tasti, una segnalazione. 
L’esemplare della nostra prova presen- 
tava uno strano inconveniente: il carat- 
tere STOP (A e SYMBOL SHIFT) non 
veniva assolutamente inviato allo Spec- 
trum, pur essendo perfettamente fun- 
zionanti sia la A che lo SHIFT. Pur certi 
che si tratta di un inconveniente del solo 


...2 tutto è pronto! Come si vede, microdrive e interfaccia 1 sono 
perfettamente compatibili. 


nostro esemplare, lo segnaliamo perché 
sia motivo di verifica da parte dell’im- 
portatore. 

Non è mancata una prova di collega- 
mento di interfaccia 1 e microdrive. Il 
loro inserimento non ha dato alcun pro- 
blema, ed anzi la maggiore inclinazione 
dell’insieme è da considerarsi positiva. 


Gli accessori 


Se l’interfaccia 1 non dà alcun proble- 
ma, altrettanto non si può dire per il 
mare di periferiche in commercio. 

Se la vostra interfaccia per joystick non 
può essere inserita direttamente al con- 
nettore dello Spectrum, comunque, non 
perdetevi d’animo. Proprio per questo 
sono stati inclusi nella confezione il trat- 
to di cavo piatto con i due connettori e 
il convertitore maschio-maschio. 

Per prima cosa collegate il cavo al con- 
nettore di espansione dello Spectrum. 

Quindi inserite nell’altro connettore, ri- 
masto libero, il convertitore, che per- 
metterà l’innesto con la periferica. Tut- 
to questo ha il vantaggio di eliminare i 
rischi di accidentali distacchi delle peri- 
feriche, dovuti a un effetto leva con lo 
Spectrum. 

In tema di accessori non si può trascura- 
re la copertina protettiva fornita con la 
tastiera. 

Da notare la sua qualità incredibilmente 
elevata, vista la funzione relativamente 
“vile” cui deve assolvere. Per quanto 
riguarda la sua utilità c’è da dire che la 
tastiera non richiede una protezione ve- 
ra e propria contro la polvere, essendo 


completamente priva di aperture. Tutto 
quello che può succedere è che la pol- 
vere si infili fra i tasti. 

Ben più bisognosa di protezione è inve- 
ce la parte posteriore dell’insieme, ed 
in particolare il punto di connessione 
Spectrum-Saga, dove la polvere potreb- 
be penetrare all’interno dello Spec- 
trum. 


Buono o cattivo? 


Per concludere, ci troviamo di fronte a 
un prodotto con molte caratteristiche 
positive e qualche difetto. 

Fra le prime annoveriamo senz'altro 
l'estetica, non-comune, e il “tocco” qua- 
si perfetto dei tasti, che dovrebbe far 
meditare i costruttori di prodotti ben 
più costosi. 

Primo fra i difetti è invece il metodo 
usato per contrassegnare i tasti, che ne 
rovina l’ottima superficie, oltre ad esse- 
re di breve durata. L’inutilità di qualche 
tasto (lo 0 aggiuntivo, ad esempio...) e 
le imprecisioni nella realizzazione (le viti 
troppo lunghe, il contatto da rifilare) 
possono essere considerati difetti mino- 
ri, vista la fascia di prezzo in cui questo 
prodotto si colloca. 

Nel complesso un valido sostituto alla 
vecchia tastiera, ormai giunta all’età 
della pensione. 

Ah, dimenticavamo: il giorno che vole- 
ste “riesumare” i gommini Sinclair non 
ci sarebbero problemi: la tastiera origi- 
nale è perfettamente ripristinabile. Ma 
c'è davvero qualcuno che lo farebbe? 
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Come ti miglioro lo Spectrum 


di Marcello Spero 


Trucchi, consigli e accorgimenti 
per i più intraprendenti ed...esi- 
genti, partendo da chi non si ac- 
contenta della solita tastiera 


pere con questa puntata una bre- 
ve serie dedicata a quanti, pur entu- 
siasti di questa macchina inesauribile 
che è lo Spectrum, vorrebbero renderlo 
un po’ più “professionale”, ossia più 
adatto ad essere usato anche come stru- 
mento di lavoro. 

Cosa manca al piccolo Sinclair per po- 
ter essere considerato un utile aiuto nel- 
le attività “serie”? 

Tre sono i settori in cui si manifestano 
delle. carenze: 

— La tastiera è poco adatta a una velo- 
ce introduzione di dati. 

— La memoria di massa originale, cioè 
le cassette, è lenta e scomoda. 

— Non è prevista la possibilità di un 
collegamento con stampanti di elevata 
qualità, cioè non ZX. 

Prima di passare alle “nostre ” soluzio- 
ni, vediamo, punto per punto, come è 
possibile risolvere questi problemi con 
quello che ci offre il mercato. 

Per quanto riguarda le tastiere aggiunti- 
ve, ne parliamo in questo numero in 
altra sede, le possibilità sono parecchie, 
a diversi livelli di prestazioni e di prezzi. 
Teniamo ancora una volta a far notare 
come anche lo Spectrum Plus, sebbene 
possieda una fastiera notevolmente mi- 
gliore del modello precedente, sia scar- 
samente adatto a un impiego professio- 
nale. 

La soluzione più tipica al secondo pro- 
blema è l’acquisto dei microdrive. Si 
tratta anche della soluzione più raziona- 
le, vista l’alta affidabilità dimostrata da 
questo sistema di immagazzinamento 
dei dati, la sua discreta velocità e la 
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fig. 1: schema della tastiera dello Spectrum 


presenza dei relativi comandi già sulla 
tastiera. 

Il prezzo, poi, non è neanche male. 
Altre soluzioni possono prevedere una 
delle ormai numerose interfacce per di- 
schi e un drive di tipo normale, o una 
soluzione “ibrida” come ad esempio gli 
ormai famosi (per lo meno in Gran Bre- 
tagna) Wafadrive, che ricalcano il fun- 
zionamento dei microdrive. 

Un altro dei motivi che incoraggiano 
l’uso, come memoria di massa, dei 
microdrive, è la possibilità di risolvere 
contemporaneamente anche il terzo 
problema, quello della stampante. 
L'interfaccia 1, necessaria per il pilotag- 
gio dei microdrive, contiene infatti 
un'interfaccia RS-232, adatta ad ogni 
tipo di comunicazione (modem, trasferi- 
mento di dati fra una macchina e un’al- 
tra di diverso tipo) e anche al collega- 
mento con una stampante, che dovrà 
essere dotata di interfaccia cosiddetta 
“seriale”. 

In alternativa, per chi non possedesse 
l'interfaccia 1, esistono apposite inter- 
facce per stampante, di tipo seriale, 
analoghe cioè a quella dell’interfaccia 
1, e parallelo, dette anche di tipo “Cen- 
tronics”. 


Veniamo al sodo 


Dopo questa veloce panoramica ripren- 
diamo ora ciascuno dei tre punti, per 
una discussione più approfondita e per 
proporre le nostre soluzioni. 

Partiamo dalla tastiera. 

Le caratteristiche di una tastiera “seria” 
dovrebbero essere: 

— tasti di tipo professionale, che diano 
una chiara sensazione quando sono pre- 
muti; 

— loro disposizione per quanto possibile 
standard, sia per posizione che per di- 
stanza l’uno dall’altro; 

— aggiunta di nuovi tasti, per poter ef- 
fettuare con un’unica pressione tutte 
quelle operazioni che sullo Spectrum ri- 
chiedono più pressioni di tasti diversi. 
In sostanza, una tastiera tipo quella del 
Plus, ma con tasti professionali e dispo- 
sizione più “spaziosa” sarebbe l’ideale. 
Guardandoci un po’ intorno vediamo 
che simili prodotti esistono sul mercato, 
ma si trattà di un’elite piuttosto costosa. 
Non è possibile tentare l’autocostruzio- 
ne di una tastiera che riunisca tutte le 
caratteristiche che consideriamo miglio- 
ri, a un prezzo accettabile? 

Noi pensiamo di sì. Oltretutto, una rea- 
lizzazione di questo tipo potrà essere 
modellata secondo le personali esigenze 
di ciascuno, modificando ad esempio la 
disposizione dei tasti o le loro funzio- 
ni. 

Noi ci occuperemo prima di tutto dei 
metodi di interfacciamento di una ta- 
stiera esterna con lo Spectrum. Quindi 
passeremo a vedere come “mettere in- 
sieme” una buona tastiera, a partire da 
quello che si può trovare in qualsiasi 
negozio di componenti elettronici. 
Nostro obiettivo ultimo è mettervi in 
condizione di realizzare una tastiera 
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fig. 2: schema del decodificatore per il collegamento di una tastiera 


esterna 


professionale ad elevato numero di ta- 
sti, con o senza tastierino numerico, a 
seconda delle vostre esigenze, e soprat- 
tutto collegabile al connettore di espan- 
sione dello Spectrum, senza dover 
smontare la macchina. 

Veniamo adesso alla prima parte del 
problema, e cioè il collegamento di una 
tastiera esterna con lo Spectrum. 

Può sembrare strano trattare per primo 
questo argomento, ma vi renderete con- 
to in seguito di come l’interfacciamento 
condizioni di fatto le modalità di realiz- 
zazione della tastiera vera e propria. 


In principio era la gomma... 


Come funziona la tastiera originale del- 
lo Spectrum? 

I tasti sono organizzati in otto semirighe 
di cinque, disposte a matrice. 

Ciascun tasto, quando è premuto, met- 
te in contatto una determinata linea in- 
dirizzi con una linea dati. 
L'organizzazione è a matrice. Ogni se- 
miriga ha in comune la stessa linea indi- 
rizzi e i tasti, nella stessa posizione in 
tutte le semirighe, hanno in comune la 
stessa linea dati. 

Le semirighe sono: 


1-5 6-0 
QalesR 

A-G H-ENTER 

CAPS SHIFT-V B-SPACE 


In ciascuna semiriga viene considerato 


primo elemento il più esterno, ultimo il 
più interno. 

Facciamo qualche esempio. 

La “Q” e la “P”, entrambi primi elemen- 
ti di due semirighe, avranno in comune 
la linea dati DO, ma saranno collegati a 
differenti linee indirizzi: la “Q” ad A10, 
la “P” ad A13. 

Le linee indirizzi collegate sono quelle 
che vanno da A8 ad A15, utilizzate in 
un ordine piuttosto strano, a partire dal- 
la semiriga in basso a destra per finire 
con quella in basso a sinistra, come ve- 
dete in figura. 

Normalmente è l’ULA a gestire la lettu- 
ra della tastiera. 

Quando questo circuito riceve il segnale 
di lettura, costituito da uno zero sulla 
linea indirizzi AO, esso invierà alla CPU 
sul bus dati un byte corrispondente allo 
stato dei tasti di una semiriga determi- 
nata dallo Z80, inviando uno 0 sulla li- 
nea indirizzi corrispondente. In questo 
byte saranno a zero le linee corrispon- 
denti ai tasti premuti, e a 1 le altre. 
Così, ad esempio, se premiamo il tasto 
“A”, la CPU riceverà sul bus dati il valo- 
re ***11110, in risposta a uno zero in- 
viato sulla linea A9, corrispondente alla 
semiriga A-G. 

Per tutte le altre semirighe il risultato 
sarà **11111. 

Il sistema adottato per portare a zerò 
le linee dati corrispondenti ai tasti pre- 
muti è il più semplice che si possa imma- 


SUPERSINC® 8/85 . 15 


ginare. Premendo un tasto, infatti, la 
sua linea dati viene messa in contatto 
con la sua linea indirizzi. 
Se quest’ultima è a zero, questo valore 
sarà trasferito sulla linea dati, e il gioco 
è fatto. 
Gli asterischi stanno a indicare i tre bit 
più elevati del bus dati, che non sono 
utilizzati per la tastiera e perciò non ci 
interessano. Il loro uso riguarda in parte 
il registratore, e comunque varia da una 
issue all’altra, ed è perciò meglio la- 
sciarli stare. 
In tutto questo processo l’unico lavoro 
‘ compiuto dall’ULA è quello di lasciar 
passare i valori inviati dalla tastiera sul 
bus dati, solo se l’indirizzo A0 è posto 
a zero. 


Come possiamo fare? 

La maggioranza delle tastiere commer- 
ciali utilizzano questa decodifica opera- 
ta dall’ULA, andandosi a collegare di- 
rettamente, all’interno dello Spectrum, 
ai terminali cui si inserisce la tastiera 
originale. Questi terminali sono contras- 
segnati KBD1-KBD12, e sono quelli in 
cui vanno a finire i contatti flessibili che 
uniscono le due metà dello Spectrum, 
e che vanno sfilati per poterlo aprire. 
Questo sistema può essere giustificato 
soltanto dal risparmio, peraltro esiguo, 
di componenti. Molte sono infatti le ra- 
gioni che ne sconsiglierebbero l’uso. 

— L’apertura della macchina ne invalida 
la garanzia, qualora questa sia ancora 
in atto. 

— Per poter stabilire il contatto con i 
terminali KBD, lo Spectrum deve resta- 
re senza la sua parte superiore, perden- 
do la sua estetica originale e rischiando 
di “ingoiare” molta polvere. 

— Non è possibile l’uso alternato delle 
due tastiere, ed è sconsigliabile il loro 
frequente scambio, pena il rapido logo- 
rio dei terminali. 

— Non essendo facile né rapida la scon- 
nessione della tastiera aggiuntiva, si vie- 
ne a perdere la portatilità dello Spec- 
trum. Una tastiera professionale è infat- 
ti, per sua stessa natura, piuttosto in- 
gombrante. 

Per tutti questi motivi, più altri che 
emergeranno in seguito, per la nostra 
realizzazione ci orienteremo verso una 
tastiera con decodifica, da poter colle- 
gare al connettore di espansione. 

La costruzione di un decodificatore di 
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fig.3: schema dell’alimentazione 
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questo tipo è d’altronde estremamente 
semplice. Tutto quello che gli si chiede 
è di immettere sul bus dati gli impulsi 
provenienti dalla tastiera solo quando 
AO è a zero, e contemporaneamente 
sono attivati i segnali di lettura da peri- 
ferica. 

Facciamo riferimento alla figura 2. Nel 
circuito che vediamo sono utilizzati solo 
due tipi di porta logica: l’invertitore e il 


La prima non fa altro che inviare in 
uscita l’opposto del segnale che riceve 
in entrata, in pratica l’equivalente della 
funzione logica NOT. Eccone la tavola 
di verità: 


IN OUT 
1 0 
0 1 


Il NOR, invece, effettua sui due dati in 
ingresso un’operazione di OR più NOT. 
Eccone la tavola di verità: 


IN1 IN2 OUT 
0 0 il 
0 1 0 
3Ì 0 0 
1 1 0 


Come vedete, solo nel caso che entram- 
be le entrate siano a zero si realizza in 
uscita la condizione di uno. 

Ed ecco come questi due tipi di porta 
logica vengono utilizzati per ottenere la 
decodifica di cui abbiamo bisogno. 
Seguiamo la figura. 

Per prima cosa vengono letti i segnali 
IORQGE.CAN # (indica la richiesta di 
periferica) e AO. Se entrambi sono atti- 
vi, cioè portano un segnale zero, l’uscita 
della prima porta, un NOR, passerà a 
uno. L’invertitore che segue trasforme- 
rà questo uno in uno zero. 

Questo zero viene ora unito al segnale 
RD.can# (richiesta di lettura), e la 
NOR che compie quest’operazione da- 
rà in uscita un livello uno, solo se en- 
trambe le entrate sono a zero. Segue 
un NOR collegato in modo da svolgere 
la funzione di invertitore, che trasforma 
l’uno in zero. Questo “adattamento” è 
necessario per sfruttare tutte le porte 
presenti all’interno di un circuito inte- 
grato, invece di usarne molti solo par- 
zialmente. 

Il risultato di questa prima catena sarà 
quindi zero, solo se AO, IORQGE # e 
RD.can # sono tutti a zero. Questa con- 
figurazione è inviata dalla CPU per dire: 
“Voglio leggere la tastiera”. 

L’impulso di zero viene quindi trasferito 
a una delle entrate di cinque NOR. 
Le loro altre cinque entrate ricevono gli 
impulsi provenienti dalla tastiera. 


Vediamo i vari casi: 


1-Le entrate di controllo (quelle cioè 
che ricevono il segnale in uscita dalla 
catena di decodifica) sono a uno. 
Risultato: al variare degli impulsi prove- 
nienti dalla tastiera le uscite resteranno 
sempre a zero. 


2-Le entrate di controllo sono a zero. 
Risultato: al variare degli impulsi prove- 
nienti dalla tastiera le uscite presentano 
l’opposto del loro valore. 

Gli invertitori posti dopo le cinque usci- 
te completano l’opera, trasformando ri- 
spettivamente il caso 1 in un livello uno 
stabile e il caso 2 nello stesso livello 
letto dalla tastiera. 

Abbiamo così ottenuto un dispositivo 
che trasferisce gli impulsi che riceve so- 
lo in presenza di una particolare combi- 
nazione di segnali, altrimenti tenendo le 
sue uscite a livello logico uno. Questo 
è esattamente ciò che fa l’ULA. 

Per le linee indirizzi non ci sono invece 
problemi. Basterà interporre fra loro e 
la tastiera dei diodi, che vedete nella 
figura, per evitare che il segnale possa, 
in determinate condizioni, percorrerle 
in senso inverso, creando confusione 
nella lettura. 

Sul lato destro della figura vedete i con- 
tatti del bus dati e del bus indirizzi, che 
andranno collegati in modo appropriato 
al connettore di espansione, come ve- 
dremo. Il lato sinistro porta invece i con- 
tatti da collegare alla nostra tastiera, 
marcati EKBD, a significare “external 
Keyboard”, tastiera esterna. 

Le resistenze che vedete collegate, in 
vari punti, alle linee logiche, sono dette 
resistenze di “pull-up”. Il loro compito 
è quello di mantenere a livello logico 
uno le linee in assenza di segnale. 


Un discorso di corrente 

Un capitolo a parte merita l’alimenta- 
zione. 

Praticamente tutti i produttori di inter- 
facce sfruttano l’alimentazione interna 
dello Spectrum a 5 volt, per risparmia- 
re componenti. 

È noto, d’altronde, che nella versione 
48K, e quindi nel Plus, questa linea di 
alimentazione è già sfruttata più che a 
fondo. Il collegarsi ad essa con altri cir- 
cuiti avidi di energia è a dir poco crimi- 
nale, e quantomeno porta a un riscalda- 
mento oltre ogni limite dell’alimentato- 
re, unito al rischio di irregolarità nella 
tensione, che possono mandare in crash 
la macchina. 

D'altra parte, per un'applicazione mo- 
desta come quella che stiamo esami- 
nando non è il caso di acquistare un 
trasformatore e collegarsi in modo indi- 
pendente alla rete. Basterà invece sfrut- 
tare la linea, molto meno sovraccarica, 
che porta i 9 volt non stabilizzati, prove- 
nienti direttamente dall’alimentatore. 
Certo, in questo modo dovremo stabiliz- 
zare noi la tensione, ma per questo ba- 
sta un unico circuito integrato e due 
condensatori, che potranno essere age- 
volmente collocati sulla stessa basetta 
del decodificatore. L'alimentazione av- 
verrà perciò attraverso il connettore di 
espansione. 

Tra il dire e il fare... 


La prossima volta vedremo come realiz- 
zare in pratica tutto quanto abbiamo fin 
qui descritto, nonché come mettere in- 
sieme la nostra tastiera professionale. 
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Il domani del software QL 


Conferme e novità nel parco pro- 
grammi disponibili in Italia per 
il Quantum Leap 


I QL si colloca per sua natura in una 
fascia di mercato relativamente atipi- 
ca: più che sofisticato per essere un ho- 
me computer, economicissimo rispetto 
ai personal e business computer, ha 
provocato qualche incertezza anche al- 
l’interno delle software house, prima in- 
decise sul da farsi, vista la scarsa diffu- 
sione iniziale delle versioni provvisorie 
del QL (il cui mercato invece ora in In- 
ghilterra pare “tiri” discretamente) e 
poi divise tra lo sviluppo di software 
giocoso o professionale per una macchi- 
na in grado di svolgere entrambe le fun- 
zioni, ma dalla fascia di utenza non ben 
definita. 

Ora finalmente il mercato software co- 
mincia a vivacizzarsi e, sebbene con 
qualche ritardo, se ne vedono i frutti 
anche in Italia. Cominciamo dalle ver- 
sioni 2.0 dei quattro programmi Psion 
inclusi nel prezzo del QL, ora compatta- 
ti, più veloci, completamente residenti 
in RAM all’atto del caricamento e rea- 
lizzati interamente in linguaggio macchi- 
na. Ecco una tabella di tempi di carica- 
mento e memoria disponibile secondo 
quanto dichiarato dalla Sinclair: 


In più il programma di installazione del- 
le stampanti INSTALL__BAS consente 
di scegliere immediatamente tra otto 


stampanti diverse anziché due (rimane 
ovviamente la possibilità di installare 
stampanti proprie non comprese nel- 
l'elenco), mentre è presente il nuovo 
CONFIG__BAS, capace di riconfigura- 
re il sistema sia come hardware (per chi 
usa, ad esempio, floppy o hard disk) 
che come software. 

Sono imminenti inoltre le traduzioni ita- 
liane (che prevedono anche parziali mo- 
difiche software) di alcuni programmi 
della linea Sinclair: QL Cash Trader, 
QL Decision Maker, QL Project Plan- 
ner e QL Entrepreneur. 

Il primo è un sistema di contabilità, che 
consente di avere in ogni istante una 
aggiornata situazione di cassa, di man- 
tenere il bilancio di entrate e uscite e 
produrre periodicamente un prospetto 
della situazione IVA. Utilizza le caratte- 
ristiche di gestione a finestre e multita- 
sking del QL: il manuale comprende an- 
che una sezione introduttiva. 

Project Planner è invece l’equivalente 
QL del MacProject prodotto per il Ma- 
cintosh Apple: permette di costruire 
graficamente il diagramma di un pro- 
getto secondo la tecnica Pert, indivi- 
duando immediatamente le attività criti- 
che del progetto stesso, determinando- 
ne il costo e il tempo richiesto e riorga- 
nizzando in modo logico l’ordine di ese- 


cuzione delle attività. 
Decision Maker aiuta invece l’utente a 
eseguire scelte ottimali in un insieme di 


azioni coinvolgenti probabilità e somme 
di denaro, simulando l’effetto di ogni 
decisione e associandovi un certo valo- 
re di rischio. 

Entrepreneur, infine, è capace di simu- 
lare diciotto mesi di flusso di cassa di 
un’attività commerciale all’inizio, deter- 
minando il punto di break—even, la si- 
tuazione IVA e un bilancio complessivo; 
è possibile inoltre simulare situazioni al- 
ternative. 

Tutti e quattro i programmi, come già 
detto, fanno uso esteso delle capacità 
del QL: sono anche piuttosto simili tra 
loro quanto a modalità operative, e con- 
tengono un corso di autoistruzione per 
i super inesperti. 

La Sinclair sta anche coordinando lo 
sviluppo di software realizzato in Italia; 
si tratta prevalentemente di applicazio- 
ni professionali. Il tutto dovrebbe essere 
disponibile al più tardi entro fine anno. 
Quanto ai programmi già presenti sul 
mercato italiano, oltre ai favolosi scac- 
chi Psion, figurano !’ Assembler, QL Mo- 
nitor e QL Toolkit. I progetti futuri com- 
prendono una versione del linguaggio C 
e del Fortran 77, mentre alcune softwa- 
re house statunitensi stanno lavorando 
a diversi progetti, che vanno dai pro- 
grammi per disegnare ai giochi di strate- 
gia, a programmi di comunicazione QL / 
IBM e a un word processor estrema- 
mente potente e sofisticato, dotato di 
un suo proprio dizionario. 

Per infomazioni rivolgersi a 

Maria Marchese 

Columbia Marketing 

Largo Toscanini 1 

20122 MILANO MI 

Telefono 02/706447—792693 


L°; 
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Avventura nell’adventure 


di Brian Robb 
Trad. e adatt. 
di Lucio Bragagnolo 


Seconda parte 


Vediamo insieme alcune subrou- 
tine utili a tutti gli scrittori — o 
aspiranti tali — di avventure su 
Spectrum e ZX81 


N° primo articolo di questa serie, 
pubblicato su SUPERSINC del giu- 
gno scorso, abbiamo cominciato a spie- 
gare in dettaglio la costruzione del “cer- 
vello” di un’avventura, illustrando la 
struttura di alcune subroutine generali, 
necessarie ai fini del funzionamento del 
programma. Per completare il “cervel- 
lo” il materiale esaminato nella scorsa 
puntata è però largamente insufficien- 
te; mancano molte subroutine adibite a 
compiti specifici, alcune delle quali sa- 
ranno esaminate nel corso di questo ar- 
ticolo. 

Per cominciare, vediamo di fare una li- 
sta degli oggetti compresi nella nostra 
avventura, così come nella scorsa pun- 
tata ci eravamo occupati dei verbi. I 
listati che ci occorrono sono i numeri 1 
e 2, corrispondenti a quelli intitolati 
“Elenco parole ZX81” ed “Elenco paro- 
le Spectrum” ‘della scorsa puntata. Gli 
oggetti elencati nei listati sono solo 
esempi: bisognerà sostituirli con ciò che 
vorremo mettere nella nostra avventu- 
ra. Il numero che segue ogni oggetto 
contraddistingue la locazione in cui que- 
sto si trova, e sarà soggetto a eventuali 
cambiamenti in relazione ai “viaggi” 
compiuti dall’oggetto durante l’avven- 
tura (a seconda che venga preso, tra- 
sportato, spostato, lasciato, trafugato e 
via dicendo). i 

Sullo Spectrum, a differenza dello 
ZX8]1, è necessario disporre di un mo- 
dulo che legga i dati di oggetti e verbi 
dalle linee DATA presenti nel program- 
ma: entrambe le versioni sono visibili 
nei listati 3a e 3b. 

Ora che il computer possiede anche una 
lista di oggetti occorre inserire nel no- 
stro programma un modulo che aggiun- 
ga alla descrizione di ogni locazione visi- 
tata un messaggio che testimoni la pre- 
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senza dell’oggetto. Il listato 4,valido sia 
per Spectrum che per ZX81, assolve 
tale funzione, e praticamente completa 
il nucleo del “cervello”. Manca ancora 
una routine che, diciamo così, ammini- 
stri l'esecuzione del programma, chia- 
mando ad ogni input del giocatore la 
subroutine relativa al messaggio inseri- 
to: si tratta del listato 5, anch’esso fun- 
zionante per Spectrum e ZX81. 


E se parlo difficile? 


Abbiamo visto nella prima puntata co- 
me la stringa x$ contenga il verbo inse- 
rito dal giocatore e v$ i verbi facenti 
parte del vocabolario del computer, in 
un certo senso la sua “cultura genera- 


le”. Sempre nel listato 5 si può vedere, 
alla linea 810, il meccanismo di compa- 
razione che permette al calcolatore di 
controllare se l’input inserito è di sua 
conoscenza: vengono esaminati i primi 
quattro caratteri della frase. Se esiste 
una corrispondenza con uno dei verbi 
appartenenti al bagaglio culturale del 
computer, avviene, come già detto, il 
salto alla subroutine corrispondente; al- 
trimenti viene visualizzato il messaggio 
“NON CONOSCO LA PAROLA”; x$, 
e toccherà al giocatore digitare un altro 
comando fino a che troverà un verbo di 
cui il calcolatore conosce il significato. 
Il numero dei verbi a disposizione del 
computer dipende dalla nostra fantasia 


| sii re "mE: IIIIIIISI:I:[5!5 
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e conoscenza della lingua, dalle dimen- 
sioni globali dell'avventura e dalla me- 
moria a disposizione. Esistono giochi 
commerciali con vocabolari di centinaia 
e centinaia di parole! Tornando in argo- 
mento, per poter illustrare meglio il fun- 
zionamento di tutto il meccanismo intro- 
durremo ora qualche altra indispensabi- 
le subroutine. 


Prendi il coltello, presto! 


Consideriamo uno dei verbi più usati 
negli adventure game — PRENDI.IL (o 
PRENDI.LA o...dipende dall’oggetto). 
Il listato 6 mostra il modulo di analisi 
del comando, che adesso spieghere- 
mo. 

Supponiamo ad esempio che il giocato- 
re della nostra avventura si trovi nella 
locazione numero 5, nella quale la no- 
stra perversa immaginazione ha deciso 
che si debba trovare un coltello. Il gioca- 
tore digita “PRENDI.IL COLTELLO”, 
frase che viene spezzata in x$ — conte- 
nente “PRENDI.IL” — e y$ (“COLTEL- 
LO”). PRENDI è il verbo numero 2 del- 
la lista, e COLTELLO è l’oggetto nume- 
ro 1, reperibile nella locazione numero 
5. Il programma, una volta analizzata 
la frase per mezzo del modulo “separa- 
zione stringhe” illustrato nella puntata 
precedente (in cui — approfittiamo del- 
l'occasione per un errata corrige — c’è 
un errore: in mezzo alle virgolette della 
linea 690 deve esserci uno spazio, come 
d’altronde viene anche spiegato nell’ar- 
ticolo), va al modulo che compone il 
listato 5. Seguiamone l’esecuzione linea 
per linea: 


linea 800: n è uguale a 1; x$(TO 4) è 
uguale a “PREN”, mentre v$(1, TO 4) 
è uguale a “AVAN”; 


linea 810: le due stringhe sono uguali? 
Evidentemente no! L’istruzione THEN 
della linea non viene eseguita; 


linea 820: n diventa uguale a 2; x$(TO 
4) è ancora uguale a “PREN”, esatta- 


listato 1 
inizializzazione verbi 
versione per ZX81 


1] REM INIZIALIZZAZIONE VERBI 


2X81 
8200 DIM 0$(5,10) 
8220 DIM 0(5) 


mente come v$(2, TO 4); 


linea 810: se le due stringhe sono ugua- 
li, allora vai alla subroutine (THEN GO 
SUB...) v(n). 


Dato che v(2) è uguale a 2000, l’esecu- 
zione del programma verrà trasferita al- 
la linea 2000, dove per l’appunto si tro- 
va la subroutine di gestione del verbo 
“PRENDI”. E da notare a questo punto 
che per far riconoscere il verbo al com- 
puter è sufficiente digitare “PREN”, co- 
sa che, pur non disturbando i novizi, 
accelererà la velocità di gioco dei più 
smaliziati ed esperti avventurieri (que- 
sta situazione è sperimentabile in molte 
avventure commerciali: chi ne abbia a 
casa una provi a troncare qualche co- 
mando, digitandone solamente le prime 
quattro /cinque lettere). 

La prima linea della subroutine “PREN- 
DI” (riportata nel listato 6) azzera la 
variabile fl, utilizzata come un indicato- 
re. Nell’esempio sopra citato la locazio- 
ne l assume il valore 5, n diventa 1, 
o(n) diviene 5, y$(TO 4) è uguale a 
“COLT”, esattamente come o$(1, TO 
4): l’indicatore fl viene allora portato a 
1, ad indicare il possesso dell’oggetto, 
mentre il valore di o(n), solitamente cor- 
rispondente al valore della locazione in 
cui si trova l’oggetto, viene portato a 
—1, per segnalare al computer il posses- 
so dell’oggetto da parte del giocatore. 
Visto che fl è uguale a 1, appare il mes- 
saggio “OK”, dopo di che viene riattiva- 
to il modulo del listato 5. Quest'ultimo 
salta alla linea 100 per ristampare la 
descrizione della locazione (senza citare 
l’oggetto preso) e dare modo al giocato- 
re di proseguire l’avventura. 

La procedura descritta qui sopra vale 
anche per la routine di abbandono og- 
getti, che verrà attivata da un comando 
come LASCIA.IL COLTELLO: il mo- 
dulo corrispondente viene mostrato nel 
listato 7. Anche qui si comincia azzeran- 
do fl. 


listato 2 


Il programma prosegue successivamen- 
te, andando alla ricerca di un valore di 
o(n) uguale a —1, indicante cioè il pos- 
sesso dell’oggetto da parte del giocato- 
re. Il calcolatore verifica — confrontan- 
do i primi quattro caratteri di y$ e o$(n) 
— che l’oggetto sia quello giusto (ricor- 
date che il giocatore potrebbe posse- 
derne più di uno): se tutto va bene, fl 
assume il valore di 1 e o(n) diventa il 
numero della locazione.in cui si trova il 
giocatore. L'oggetto rimarrà nella loca- 
zione in cui è stato abbandonato, alme- 
no fin quando sarà ripreso. Basandosi 
sul valore di fl (che è 1) il computer 
termina di eseguire il modulo stampan- 
do un altro messaggio di “OK”. 


Chiuso per inventario 

Un'altra routine indispensabile è quella 
che stampa una lista di tutti gli oggetti 
in possesso dell’avventuriero. La potete 
vedere nel listato 8. Il funzionamento 
ricalca quello delle altre routine esami- 
nate finora: fl viene riportata per l’enne- 
sima volta a zero, e viene stampato il 
messaggio “STAI PORTANDO:”. At- 
traverso il ciclo che va dalla linea 4020 
alla 4050 il computer prende nota degli 
oggetti il cui valore, contenuto in o(n), 
corrisponde a —1, anziché a un numero 
di locazione, per portare fl a 1 e stam- 
pare il nome dell’oggetto. Se o(n) rima- 
ne uguale a zero fino al termine del ci- 
clo, significa che l’avventuriero non pos- 
siede alcun oggetto; in questo caso fl 
rimane a zero e viene stampato l’appo- 
sito messaggio. Infine il calcolatore ri- 
torna nuovamente ad eseguire il modu- 
lo principale del “cervello”. 

Nella prossima puntata prenderemo in 
esame alcune subroutine specifiche per 
l'esempio di avventura che stiamo man 
mano presentando, contenenti alcune 
tecniche di uso generale, che vi permet- 
teranno di evitare molti degli inconve- 
nienti più comuni in cui può incappare 
un aspirante scrittore di adventure ga- 
me. Arrivederci! 


inizializzazione verbi 
versione per ZX Spectrum 


1 REM inizializzazione verbi 


Spectrum 
8200. DATA “Coltelto", 5, Plstola"2 
REM eccetera, eccetera... 


8229 REM METTE GLI OGGETTI IN O$ 


8230 LET O$(1)="COLTELLO" 
8239 REM ASSEGNA UNA LOCAZIONE 


A OGNI OGGETTO 
8240 LET 0(1)=5 
8250 LET 0$(2)="PISTOLA" 
8260 LET 0(2)=2 


8269 REM ...E VIA DICENDO 


listato 3a 


modulo lettura dati 


versione per ZX81 


] REM MODULO LETTURA DATI ZX81 
30 GO TO 8000 
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listato 3b 
modulo lettura dati 
versione per ZX Spectrum 


REM modulo dati Spectrum 


30 RESTORE 8200: FOR i=1 TO 8 
40 READ o$(i),0(i) 

50 NEXT i 

60 FOR i=l TO (numero dei verbi) 
70 READ v$(i),v(i) 

80 NEXT i 

listato 4 


routine di stampa oggetti 


REM routine di stampa oggetti 


270 PRINT 

280 PRINT "PUOI VEDERE " 

290. LET FL=0 

299 REM 8=NUMERO DEGLI OGGETTI 

300 FOR N=1 TO 8 

30 SER L=0(N) THEN PRINT OS (N) 

320 IF L=O0(N) THEN LET FL=1 

330 NEXT N 

340 IF FL=0 THEN PRINT "NIENTE DI U 
PILE! 

listato 5 


routine di analisi verbi 


REM routine verbi 


800 FOR n=1 TO (numero di verbi) 

810 IF x$( TO 4)=v$(n, TO 4) THEN 
GO SUB v(n) 

820 NEXT n 

830 PRINT "NON CONOSCO LA PAROLA "j;x 
$ 

840 GO TO 100 

listato 6 


routine “PRENDI” 


1 REM routine PRENDI 


2000 LET £1=0 

2005 REM 8=numero di oggetti 

2010 FOR n=1 TO 7 

2020 IF l=o(n) AND y$( TO 4)=o$(n, 
TO 4) THEN .LET £1=1 

2030 IF l=o0(n) AND y$( TO 4)=0o$(n, 
TO 4) THEN LET o(n)=-1 

2040 NEXT n 
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2050 IF f1=0 THEN PRINT "NON E' QUI. 
" 

2060 IF f1=1 THEN PRINT "OK." 

2070 PAUSE 500 

2080 RETURN 

listato 7 


routine “LASCIA” 


REM routine LASCIA 

LET £1=0 

FOR n=1 TO 7 

REM 8=numero di oggetti 

IF o(n)=-1 AND y$( TO 4)=o$(n, 
TOM) THEN SEBT'EI=1 

IF o(n)=-1 AND y$( TO 4)=o$(n, 
TO 4) THEN LET o(n)=1 

NEXT n 

IF f1=0 THEN PRINT "NON POSSIED 
I QUESTO OGGETTO..." 

IF f1=1] THEN PRINT "OK." 

PAUSE 500 

RETURN 


listato 8 
routine “INVENTARIO” 


REM routine INVENTARIO 

LET £l=0 

PRINT "STAI PORTANDO:" 

EOR n=1 TO 8 

IF o(n)=-1 THEN LET £1=1 

IF o(n)=-1 THEN PRINT o$(n) 
NEXT n 

IF £1=0 THEN 
PAUSE 500 


PRINT "NIENTE." 


RETURN 


MISSIONE 
AFRICA 


Una ‘Nave della Pace” in partenza dall’Italia 
porterà in Africa soccorsi immediati e aiuti 
per un domani migliore con il vostro contributo. 


Spazio gratuito offerto da J.soft 


Nave della Pace 


La ‘Nave della Pace blemi dello sviluppo sa mezzi e di beni indispen- 
uno strumento nuovo no offerto consigli per la sabili per i soccorsi di pri- 
per intervenire immedia- migliore attuazione del —ma necessità e per gli aiuti 
tamente là dove è neces- progetto. L’iniziativa ha di sviluppo destinati a 15 
sario un urgente soccorso ottenuto l’Alto,Patronato paesi dell’ Africa. 

a popolazioni gravemen- del Presidente della Ca 
te colpite da calamità na- Repubblica Italiana, il 


O Lit. 10.000 ) Lit. 50.000 
O Lit. 25.000 D) Lit. 100.000 o più 
tramite: 
O Assegno non trasferibile intestato: 
Comitato Nave della Pace 


siano adeguati ed efficaci del Ministero degli Affari 
e la “Nave della Pace” Esteri. Il Comitato 

possa partire a pieno ca- ‘Nave della Pace” chiede 
rico occorrono offerte e a quanti comprendono la 
solidarietà da parte di necessità ed il valore 

tutti. Specialisti dei pro- dell’iniziativa, offerte di 


O) C/e postale n. 15285000 
O Bonifico bancario a credito 
Jel c/c n. 3100/51 c/o 
la Cassa di Risparmio di Roma 


turali. Non Patrocinio 

porta solo aiuti dell'ONU, del- 

immediati ma |. la Lega di So- 

anche strumen- |" ;’ | cietà di Croce pb apro emi 

ti di lavoro e Rossa e di | Da compilare in stampatello cd inviare sui 

mezzi ausiliari Mezza Luna Comiato Nave di dela Pace 

idonei a realiz- Rossa le della SI°, ANCH'IO VOGLIO AIUTARE I 

zare migliori Croce Rossa DISARMO ISRAE tt 

ci enicon di Italiana e il Cosi 

contributo del i Via N I 

Affinché questo risultato Dipartimento perla Coo- 1 Cr i mo 

sia raggiunto, gli aiuti perazione allo Sviluppo contributo di I 
I 
I 
I 
I 
I 
I 
| 
) 


sede centrale - 
Via del Corso, 320 - 00186 Roma } 4 
LI) Desidero una ricevuta del mio versamento. | 


L’Assembly 


di Marcello Spero 
Quinta parte 


Cominciamo a mettere in pratica 
quanto imparato finora nel no- 
stro corso di linguaggio macchi- 
na 


inite le vacanze? Sia che siate fra i 

molti che a malincuore devono ri- 
spondere di sì, o fra i pochi fortunati 
che si stanno ancora godendo questo 
ultimo stralcio di estate, mi auguro che 
siate pronti ad affrontare una nuova 
puntata del nostro corso di Assembly. 
La scorsa puntata (vi ricordate?) aveva 
segnato l’inizio della fase finale, più evo- 
luta, del nostro viaggio all’interno di 
questo modo di programmare, a torto 
ritenuto complicato e pesante. La trat- 
tazione classica per argomenti, usata fi- 
nora, è stata abbandonata, per passare 
alla presentazione di realizzazioni prati- 
che. 
La nostra conoscenza dell’ Assembly, in- 
fatti, dovrebbe essere ormai tale da 
consentirci la comprensione, per lo me- 
no a grandi linee, di routine anche com- 
plesse. Queste, comunque, verranno 
dettagliatamente spiegate , in modo da 
chiarire il significato delle nuove opera- 
zioni che incontreremo. Questo sistema, 
oltre a farci acquisire una certa familia- 
rità con le tecniche di programmazione 
usate in Assembly, ha il non trascurabi- 
le vantaggio di creare a poco a poco 
una libreria di routine. 
Di volta in volta verrà illustrato l’uso di 
ciascuna di queste routine. Il loro uso, 
comunque, non si esaurisce in una loro 
applicazione separata. Vedremo infatti 
come unirle in un unico, grandioso vi- 
deogame, degno degli “arcade” com- 
merciali. Un ulteriore miglioramento a 
questa nostra creazione verrà apporta- 
to durante la seconda fase del nostro 
corso, che avrà carattere monografico. 
Ci occuperemo, cioè, di un argomento 
per volta, che si esaurirà nell’ambito 
della puntata. Suono, effetti speciali (i 
cosidetti stipple — retini —, uso della 
zona di border) e routine pilotate da 
interruzioni sono alcuni degli argomenti 
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be 
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che toccheremo. 

Prima di correre così avanti, comunque, 
torniamo alla nostra prima routine, e 
vediamo com'è fatta e come funziona. 


Vi ricordate? 


Si trattava di una routine per il movi- 
mento ad alta risoluzione. In pratica, 
con il suo ausilio è possibile far muovere 
un carattere grafico di un pixel per vol- 
ta, anziché a scatti di un carattere. Que- 
sta tecnica è molto usata nei game di 
un certo livello, laddove si desidera un 
movimento fluido e senza sfarfallii. 
Della estrema fluidità del movimento 
prodotto si saranno accorti quanti han- 
no provato la routine, utilizzando il pro- 
gramma BASIC pubblicato nella scorsa 
puntata. 

Rivediamo comunque, ad uso di quanti 
avessero perso quella puntata, come si 
fa ad utilizzare la routine. 

I dati di cui questa necessita per un 
corretto funzionamento sono: 


— carattere grafico da visualizzare; 

— coordinate di stampa; 

— sìîo no alla cancellazione della stampa 
precedente. 


Per comodità, il trasferimento di questi 
parametri è stato realizzato utilizzando 
il metodo, già ampiamente spiegato, 
che fa uso di 


DEF FN <nome> (x,y,z,w) = USR 
<indirizzo>) 


L’indirizzo di inizio, per motivi che ve- 
dremo in seguito, deve necessariamen- 
te essere 30000. La routine non è infat- 
ti rilocabile. 

All’atto del richiamo, mediante una 


<parola chiave> FN<stesso nome > 
(a,b,c,d) 


i parametri contenuti fra parentesi do- 
vranno essere: 


— a: 0 = cancellazione stampa prece- 
dente; 

1 = non cancellazione; 

— b: numero d’ordine del caattere gra- 
fico da visualizzare (0 per la “A”, 
1 per la “B”, ecc.); 

— c: coordinata x della posizione del- 
l’angolo superiore sinistro del ca- 
rattere da stampare; 

— d: coordinata y dello stesso punto. 


Il comando 
RANDOMIZE FN q(1,0,0,0) 


darà come risultato la visualizzazione 
del carattere “A” grafico nell’angolo in 
alto a sinistra dello schermo, mentre 


RANDOMIZE FN  Q(1,0,248,184): 
PAUSE 0 


lo riprodurrà in basso a destra. In que- 
st’ultimo caso è necessario, per evitare 
l’immediata cancellazione del carattere, 
l’uso di PAUSE. La posizione di stampa 
utilizzata è infatti nella zona di schermo 
riservata ai comandi ed ai messaggi, e 
solo con PAUSE possiamo evitare la 
comparsa dello 


0 OK, 0:1 


distruttore. 

Abbiamo così chiarito che questa routi- 
ne permette l’uso di tutto lo schermo, 
cioè di 256x192 pixel, e che mentre 
l’asse delle x funziona normalmente, 
quello delle y risulta capovolto rispetto 
a quello usato dall’istruzione PLOT. 


Un’occhiata d’insieme 

Diamo un’occhiata d'insieme al pro- 
gramma; notiamo un blocco principale 
e un altro denominato “subroutine”. Il 
listato riporta in evidenza questa suddi- 
visione. î 
Questa osservazione ci dà l'occasione 
di introdurre l’argomento dei sottopro- 
grammi in linguaggio macchina. 

Anche il linguaggio macchina possiede, 
infatti, la possibilità di utilizzare delle 
subroutine, proprio come il BASIC. 
Voi tutti sapete che in BASIC è possibi- 
le evitare la ripetizione, in un program- 
ma, di gruppi di istruzioni identiche, che 
eseguono elaborazioni necessarie più 
volte in più punti diversi. E possibile 
invece, e molto più elegante e comodo, 
servirsi di una subroutine. 

Si tratta di un piccolo (ma non è sempre 
così) programma, che termina con una 
istruzione 


RETURN 


Ogni volta che, nel programma princi- 
pale, c’è bisogno di eseguire quella par- 
ticolare procedura, invece di riscriverne 
le istruzioni che la compongono basterà 
inserire un'istruzione 


GO SUB N 
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MICRO RESEeA CE 


PRINCIFALE*** 
SC td hl, (DEFADDI 
Da ld de ,4 
add hLl,de 
Ud alpe LI 
and a 
halt 
Jr mz NON 
push hL 
push de 
cC3 call MRIN 
pop de 
pap hl 
add hLl,de 
add hLl,de 
td a, (hit 
50 td (CHAR_NR?} a 
add hLl,de 
add hLl,de 
Lidi a, SALI 
5C td (COORI.a 
add hLlU,de 
add hLl,de 
dita, ELI 
AE ld (NCC0ORI a 
push ix 
SC Ld hLl, (UDGI 
ex de ,hLl 
SC Ltd a, (CHAR_NRI 
Carona 
ld h,Q@ 
add hLU,hLl 
add hLU,hl 
add hLU,hL 
add hL,de 
push hL 
POP ix 
B® SC ld bc, (COOR)I 
C3 call PIXEL 
push af 
ate bioa 
cC3 call PLOT 
ILE A EI 
B®A SC ld bc, (COOR)I 
LR, 
Udi baz 
dra se 
push bce 
cC3 Gallo DIS 
Pop bc 
inc sr 
pop a 
push af 
push bc 
Ltd b,a 
c3 call PLOT 
LIME. A 
pap bc 
dinz LOOP_M 
pop af 
POP 1X 
ret 
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dove N è il numero di linea dell’inizio 
della subroutine. 

Le istruzioni contenute in questo “micro 
programma” verranno eseguite, fino ad 
incontrare 


RETURN 


che farà riprendere l’esecuzione dal- 
l'istruzione, del programma principale, 
successiva alla GO SUB da cui la su- 
broutine era stata chiamata. 

Che vantaggi ha questo metodo rispetto 
al salto per mezzo dell’istruzione GO 
TO? E molto semplice; una subroutine 
viene di solito utilizzata più volte, nel 
corso di un programma, e quindi richia- 
mata da posizioni diverse. Come po- 
trebbe fare un'istruzione GO TO a sa- 
pere dove tornare? 

Una volta sarà 


GO TO 20 
un’altra 
GO TO 100 


e così via. 

Il meccanismo di richiamo di una su- 
broutine, cioè quello che si serve della 
struttura 


GO SUB 


RETURN 


tiene invece nota del numero di linea in 
cui è avvenuta la chiamata e torna, per 
mezzo di RETURN, all’istruzione suc- 
cessiva. 

Tale numero di linea viene infatti con- 
servato in un’area di memoria chiamata 
“catasta dei GO SUB”. Questo nome 
deriva dal funzionamento di quest’area, 
che ricorda da vicino quello di una cata- 
sta, o di una pila, di piatti. L’ultimo ele- 
mento introdotto sarà infatti il primo a 
poter essere recuperato. Anche nel ca- 
so di chiamate multiple (una subroutine 
che richiama un’altra subroutine) i ritor- 
ni avverranno correttamente nell’ordi- 
ne inverso alle chiamate. 

Tutto quello che abbiamo appena detto 
per il BASIC vale anche per il linguag- 
gio macchina. Esiste infatti un'apposita 
operazione di richiamo per subroutine, 
la cui mnemonica Assembly è 


call N 


con N indirizzo di inizio, in memoria, 
della subroutine da richiamare. Questa, 
a sua volta, sarà conclusa da un’opera- 
zione di ritorno: 


ret 
L’appropriato ritorno è consentito, an- 
che qui, da un sistema di memorizzazio- 


ne a catasta degli indirizzi di partenza. 
A proposito, vi siete accorti che questo 
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‘ #**SUBROUTINE # # # 
FIXEL 

50101 78 
52102 CD B1 22 
50105 C9 
50106 79 
30193 28 0à 
50111 24 
50112 c9 
SOLI. 70 
50114 C6 20 
520116 6F 
50117 38 Fs 
s@119 7C 
50120 DE 07 
50122 67 
50123 C9 
50124 DD 7E 00 
50127 QE 08 
50129 04 
501352 95 
aaa 25 
50133 1F 
50134 CB 19 
agio 10 FE 
50138 RE 
50139 27 
50140 79 
50141 23 
50142 RE 
50143 77 
50144 28 
50145 CS 


ret è lo stesso usato per tornare al BA- 
SIC, al termine di una routine in 1/m?. 
L'interprete BASIC (che è un program- 
ma in linguaggio macchina, posto nella 
ROM) considera infatti le routine scritte 
da noi come “subroutine dell’utente” 
(User SubRoutine, USR), di conseguen- 
za richiamate con lo stesso sistema delle 
normali subroutine. 

Ecco spiegato il perché dei due blocchi; 
il primo contiene la routine principale, 
il secondo le varie subroutine, che ver- 
ranno richiamate al momento opportu- 
no. 


Il blocco principale 

Iniziamo col prendere in considerazione 
il blocco principale. 

Al suo interno possiamo distinguere tre 
blocchi funzionali: 


— lettura primo parametro ed eventuale 
cancellazione della stampa preceden- 
te; 

— lettura degli altri parametri; 

— esecuzione stampa. 

Il funzionamento del primo blocco è 
molto elementare. Innanzitutto si tratta 
di portare hl a puntare alla posizione, 
all’interno della linea DEF FN, in cui è 
contenuta la prima informazione che ci 
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fig.1: listato completo del programma 


serve. 

Per questo è necessario partire dall’in- 
dirizzo contenuto nella variabile di siste- 
ma DEFADD, che indica la posizione 
del primo parametro, e quindi procede- 
re in avanti di quattro posizioni. Il modo 
più semplice di fare tutto questo è con 
un’addizione: 


ld hl,(DEFADD) 
de,4 
add hl,de 


Quindi, per influenzare il flag Z con il 
contenuto dell’indirizzo puntato da hl 
basterà 


ld a,(hl) 
and a 


Le operazioni logiche di un operando 
su se stesso (è il caso di and a) produco- 
no sempre un risultato uguale all’ope- 
rando. L’unico scopo di un’operazione 
di questo tipo è quello di modificare lo 
stato dei vari flag, a riflettere il contenu- 
to di a. 


A questo punto in caso di 


a<>0 


—r—r——x 


avviene un salto verso l’istruzione eti- 
chettata NON, per evitare il blocco rela- 
tivo alla cancellazione della stampa pre- 
cedente. 

L’operazione 


halt 


che vedete serve a sincronizzare l’ese- 
cuzione del programma con l’elabora- 
zione d'immagine da parte dell’hard- 
ware. Per il momento lasciamola sta- 
re: ce ne occuperemo approfondita- 
mente più avanti. 

Saltando, per il momento, il blocco rela- 
tivo alla cancellazione, proseguiamo 
dall’istruzione marcata NON, punto di 
arrivo del salto. 

- Eccoci al blocco che recupera gli altri 
parametri, cioè quelli relativi al caratte- 
re e alle coordinate. 

La loro sede definitiva sarà in due varia- 
bili di sistema normalmente non utilizza- 
te. Il numero d’ordine del carattere an- 
drà all’indirizzo 23681, che abbiamo 
etichettato, per nostra comodità, 
CHAR-NR. 

Le due coordinate trovano invece posto 
alle locazioni 23728 e 23729, chiamate 
da noi rispettivamente COOR ed 
Y-COOR. Essendo due locazioni adia- 
centi, i loro contenuti potranno essere 
trasferiti separatamente in due registri 


es.: ld a,(COOR) 
Id b, (Y--COOR) 


oppure contemporaneamente da una 
coppia 


es.: ld de,(COOR) 


indicando semplicemente il primo indi- 
rizzo, che per questo non è stato chia- 
mato X-COOR, ma COOR. 

Come potete vedere, per passare da un 
parametro al successivo è necessario 
aumentare di 8 il valore di hl. Quindi 


add hl, de 
add hl, de 


Dopo aver posto i dati nelle loro aree 
definitive si entra nel “vivo” della routi- 
ne. 

Le operazioni da compiere sono: 

— trovare in che byte è situato, all’inter- 
no dell’area video, il pixel individuato 
dalle coordinate, e a quale bit corri- 
sponde; 

— trovare a che byte corrispondono le 
successive sette linee di pixel che com- 
pongono l’intero carattere (il bit sarà 
sempre lo stesso); 

— tranne nel caso in cui il bit in questio- 
ne sia il numero 7 di un byte, il carattere 
sarà contenuto in parte nei byte di cui 
abbiamo trovato gli indirizzi, e in parte 
nei byte a loro successivi. Per questo 
occorre preparare, di volta in volta, in 
due registri i due “pezzi” di ciascuna 
linea del carattere che andranno nel- 
l’uno e nell’altro byte; 

— trasferire sullo schermo il frutto di 
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fig.2: la routine princi 


tutto questo lavoro. 


È forse meglio spiegarsi con un esem- 
pio. 

Supponiamo di voler riprodurre un ca- 
rattere a partire dalle coordinate x,y. 
Troviamo che a questa coppia di coor- 
dinate corrisponde il bit 4 dell’indirizzo 
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I1. Calcoliamo ora gli indirizzi dei sette 
byte sottostanti, 12-18, che ospiteranno 
le righe successive del carattere. Ciò 
significa che ogni riga del carattere (oc- 
cupando, come è notò, otto bit) andrà 
dal bit 4 del byte trovato al bit 5 del 
byte a lui successivo. L’intera matrice 
del carattere viene perciò ad essere: 
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fig.4: la subroutine DIS 
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fig.5: la subroutine PLOT 


76543210 76543210 

Il CEZILI (Resi xt 
12 Ato I2+1 ELI 
13 CLIL 13+1 At 
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16 tt 16+1 ** 
17 CIELI IZ Di 
18 CITI I8+1 CEI 


Vediamo adesso come queste elabora- 
zioni vengono svolte in realtà. 

Il blocco contrassegnato con MAIN può 
a sua volta essere suddiviso in tre bloc- 
chi funzionali: 


— calcolo dell’indirizzo a cui trovare il 
carattere da stampare; 

— trasformazione delle coordinate nel 
byte e bit corrispondenti, e plottaggio 
della prima riga del carattere; 
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— ripetizione per le successive sette ri- 
ghe. 


Qualcosa di nuovo 


Come prima operazione troviamo subi- 
to qualcosa di nuovo: 


push ix 


Si tratta di una operazione a noi nuova, 
push, applicata a un registro, ix, che 
non abbiamo mai visto. 

Iniziamo dall’operazione. Abbiamo par- 
lato poco fa della catasta e di come il 
sistema se ne serva per conservare gli 
indirizzi di ritorno delle subroutine. 
Questa stessa catasta può servire an- 
che a conservare il contenuto di una 
coppia. Supponiamo, ad esempio, di 
avere impegnate tutte le coppie e di 
doverne liberare una per determinate 


operazioni. Come fare a non perdere il 
suo contenuto? 

Potremmo, certo, utilizzare una locazio- 
ne di memoria come “serbatoio”: 


ld (<indirizzo>), hl 


Questo comporta però una appropriata 
scelta delle locazioni, ed è un procedi- 
mento poco veloce. 
Molto più pratico è 


push hl 


che pone in cima alla catasta il contenu- 
to di hl. Per recuperare il valore basterà 
effettuare l’operazione inversa, 


pop hl 


Certo, usando questo sistema occorre 
tener presente il funzionamento partico- 
lare della catasta, che può essere rias- 
sunto in: 


primo dentro, ultimo fuori 


Infatti, nel caso di salvataggi multipli, ti- 
po 


push bc 
push de 
push hl 


al momento del recupero occorrerà 
procedere in senso inverso: 


pop hl 
pop de 
pop bc 


pena lo scambio dei valori. Come vedre- 
mo più avanti, anche lo scambio dei va- 
lori può essere una tecnica utile a com- 
piere dei travasi fra coppie. 

Torniamo adesso alla nostra routine. Il 
registro ix, in realtà una coppia, è anche 
detto, insieme al suo analogo iy, regi- 
stro indice. Questo perché non può fun- 
zionare per le normali operazioni, ma 
in compenso è in grado di svolgere mol- 
to bene la funzione di puntatore. 

A noi serve proprio per questo. Voglia- 
mo infatti farlo puntare all’indirizzo che 
contiene il primo byte del carattere gra- 
fico da stampare. Certo, per questo po- 
tremmo usare hl, ma preferiamo tenere 
disponibile quest’ultimo per altre opera- 
zioni. 

Ma perché salvare il contenuto di ix sen- 
za averci ancora messo niente? 
Perché al momento di passare all’ese- 
cuzione della nostra routine il sistema 
può avere lasciato in ix informazioni im- 
portanti, indispensabili al momento del 
ritorno dalla routine stessa. Per pruden- 
za, quindi, prima di usarlo ne proteggia- 
mo il contenuto, con l’intenzione di re- 
stituirlo al sistema così com'era. 
Risolto il problema creato da push ix, 
passiamo oltre. 

Carichiamo, con 


ld hl,(UDG) 


in hlil valore di inizio dell’area dei carat- 
teri grafici. Quindi (sorpresa!) trasferia- 
mo il contenuto di hl in de. 
Avremmo potuto anche caricare diret- 
tamente in de il valore, con 


Id de,(UDG) 


E interessante, invece, conoscere que- 
sta operazione, che permette di scam- 
biare rapidamente il contenuto di de e 
hl. Non esiste un suo analogo per altre 
combinazioni di coppie. 

Ora che abbiamo in de l’indirizzo base 
dell’area UDG, carichiamo in a il nume- 
ro d’ordine del carattere che ci interes- 
sa e procediamo al calcolo del suo indi- 
rizzo. 

«Poiché ciacun carattere occupa otto 
byte, il secondo sarà in posizione 


<base>+8 
il terzo in posizione 
<base>+16 


e così via. 
In generale, il carattere N sarà in posi 
zione 


<base > +8*N 


Occorre quindi moltiplicare per otto il 
contenuto di a. Ma attenzione! Se il nu- 
mero d’ordine originale è senz’altro mi- 
nore di 255 (i caratteri grafici sono infat- 
ti molti meno), molto probabilmente 
non sarà così per N*8. Prima di effettua- 
re la moltiplicazione occorre perciò tra- 
sferire N in una coppia. 

Quindi 


ld lja 
Id h,0 


E adesso, la moltiplicazione. Il modo più 
semplice è in questo caso la somma ri- 
petuta: 


add hl,hl (N*2) 
add hl,hl ((N*2)*2)=N*4 
add h},hl (((N*2)*2)"2)=N*8 


A questo punto basterà sommare al ri- 
sultato l’indirizzo base 


add hl,de 
per ottenere il valore desiderato. 
Ma noi volevamo mettere questo valore 


in ix. Come fare? Non esiste, infatti, 
l'operazione 


ld ix,hl 


Ecco un’applicazione dello scambio di 
valori a mezzo push-pop: 


push hl 
pop ix 


e il gioco è fatto. 


Passiamo al secondo blocco, quello che 
calcola l’indirizzo e il bit di inizio della 
prima riga dl carattere e la trasferisce 
sullo schermo. 

Questo blocco si avvale dell'uso di due 
subroutine, PIXEL e PLOT. Noi, per 
ora, non ci occuperemo del loro funzio- 
namento, ma continueremo a seguire il 
programma principale. 

Dopo aver caricato in bc le coordinate 
viene chiamata PIXEL. Al suo ritorno 
hl contiene l’indirizzo del byte, ed a il 
numero d’ordine del bit al suo interno, 
corrispondente alle coordinate date. 
Dopo avere provvisoriamente salvato il 
contenuto di a con 


push af 


(notate come a sia abbinata al registro 
dei flag nel salvataggio con push, per 
formare una coppia) e trasferito in b il 
contenuto di a (che, pur se già in cata- 
sta, resta in a finché ne modifichiamo il 
contenuto) viene chiamata la subroutine 
PLOT, che esegue tutto il procedimen- 
to di suddivisione della linea di caratte- 
re fra due registri e di successivo trasfe- 
rimento all’area video. 

Al suo ritorno ix viene incrementato di 
1, in modo che punti al byte successivo 
del carattere, in bc viene ricaricato il 
valore delle due coordinate (PLOT mo- 
difica il valore di bc), e quindi il contenu- 
to di b (coordinata y) viene passato in 
c. B è usato come contatore per il ciclo 
che ripete il procedimento PIXEL- 
PLOT per sette volte. 

La coordinata x, inizialmente in c, va in 
tal modo persa. Vedremo che il suo va- 
lore non ci serve. La subroutine DIS, 
utilizzata per calcolare gli indirizzi delle 
linee successive, si accontenta infatti 
dell’indirizzo della riga precedente, in 
hl, e della coordinata y, ora in c, che 
viene incrementata di 1 per indicare la 
riga successiva. 


Come potete vedere, bc è stata salvata 
prima di chiamare DIS; in questo modo 
al suo ritorno potremo riaverla integra. 
Prima di chiamare PLOT abbiamo biso- 
gno di ripristinare il valore di a. Per 
questo è purtroppo necessario “tirare 
fuori” anche bc: tanto vale, allora, in- 
crementare c. Dopo il ritorno da PLOT 
ix viene incrementato per essere pronto 
alla riga seguente, e quindi bc è recupe- 
rato, in modo che b possa funzionare 
da contatore per il ciclo, che deve ripe- 
tersi sette volte. L'operazione 


djnz LOOP-M 


fa proprio questo. 

Al termine del ciclo vengono recuperati 
i valori di af (inutile, ma bisogna farlo 
per poter arrivare a ix) ed ix, che, come 
abbiamo visto, deve avere, al ritorno al 
BASIC, il suo valore originale. 


A proposito di push e pop 

A proposito dell’uso della catasta per 
salvare il contenuto di coppie di registri, 
è importante ricordare sempre che si 
tratta della stessa catasta che contiene 
gli indirizzi di ritorno dalle subroutine. 
Un routine tipo 


push bc 
push hl 
pop hl 
ret 


porterebbe inesorabilmente la macchi- 
na al crash. Infatti, al momento dell’ese- 
cuzione di ret il valore in cima alla cata- 
sta non è quello corretto, ma il contenu- 
to di bc, salvato e non più recuperato. 
Per cui, servano o non servano, tutti i 
valori salvati all’interno di una subrou- 
tine vanno recuperati prima del ritorno 
dalla subroutine stessa. 

Ciò non vuol dire, comunque, che non 
sia possibile chiamare una subroutine, 


fig.6: schema dell’istruzione di scorrimento RRA 
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se in catasta sono presenti dei valori 
salvati. Basterà tener presente che que- 
sti non saranno accessibili dall'interno 
della subroutine chiamata, ma solo dal- 
la routine che li ha salvati. 

Ad esempio: 


push bc 
call SUB1 
pop bc 


SUB1 push hl 


è una struttura perfettamente funzio- 
nante, in cui ciascuna routine utilizza 
solo ciò che ha salvato e libera la cata- 
sta dalle “sue cose” prima di ritorna- 
re. 

Ci resta da esaminare, per quanto ri- 
guarda il programma principale, il bloc- 
co relativo alla cancellazione del carat- 
tere stampato precedentemente. 

Il suo funzionamento è molto semplice; 
dopo aver salvato hl e de, che in quel 
momento contengono rispettivamente il 
puntatore ai parametri ancora da recu- 
perare e la distanza fra un parametro 
e l’altro, esegue una chiamata a subrou- 
tine, utilizzando MAIN (cioè il blocco del 
programma principale) come se fosse 
un sottoprogramma. Stupiti? In fondo, 
non cambia niente; l’unica differenza 
sta nel fatto che il ritorno, al termine di 
MAIN, avverrà non verso il BASIC, co- 
me succede al termine dell’esecuzione 
normale, ma verso l'operazione seguen- 
te alla call. 

In questo modo si ha un’esecuzione 
completa del programma sotto forma 
di subroutine. I dati con cui avviene que- 
sta esecuzione sono però quelli vecchi 
(è per questo che non bisogna attivare 
la cancellazione all’atto della prima 
stampa: non esistono dati precedenti, e 
si rischia qualcosa di brutto), e quindi si 
ha una stampa sovrapposta a quella 
precedentemente eseguita. 

Poiché l'immissione dei caratteri nel- 
l’area video avviene, per motivi che ve- 
dremo, non con 


ld <indirizzo>,<linea carattere> 
ma con 
xor (<indirizzo>),<linea carattere > 


la doppia stampa provoca l’annulla- 
mento della prima, come abbiamo visto 
la scorsa volta. 


Le subroutine 

Ed eccoci alle subroutine. 

La prima è PIXEL. 

Il suo funzionamento si riduce alla chia- 
mata di un’altra subroutine, presente in 
ROM all’indirizzo 8881 (22b1 HEX). 
Questa routine riceve in a la coordinata 
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y, inc la x, e restituisce in hl l’indirizzo 
del byte, e ina il bit al suo interno corri- 
spondente alle coordinate date. Come 
vedete, infatti, prima della sua chiama- 
ta avviene un travaso fra b ed a. 

La seconda subroutine è DIS, che calco- 
la gli indirizzi successivi. 

Si sarebbe potuta senz’altro usare anco- 
ra PIXEL, ma il funzionamento di tutto 
l'insieme sarebbe stato più lento; DIS è 
infatti notevolmente più corta di quanto 
non sia la routine in ROM usata da PI- 
XEL 

Il suo funzionamento si basa su alcune 
semplici considerazioni: 

— esistono tre tipi di “salto” fra due 
byte, l’uno sopra l’altro; 

— il primo è quello fra due byte dello 
stesso carattere (inteso come uno dei 
32x22 caratteri normali), ed è di 256; 
— il secondo è quello fra l’ultimo byte 
di un carattere e il primo del carattere 
sottostante, ed è di -1760; 

— il terzo è quello fra l’ultimo byte del- 
l’ultimo carattere di un blocco (uno dei 
tre blocchi di otto righe ciascuno di cui 
è formato lo schermo dello Spectrum) 
e il primo del blocco successivo, ed è di 


32: 


La distinzione fra questi tre casi avviene 
in base al valore della coordinata y. 
Se il suo valore non è multiplo di otto, 
si tratterà senz'altro di un altro byte 
dello stesso carattere, e quindi l’indiriz- 
zo contenuto in hl sarà incrementato di 
256: 


inc h 


Il modo per sapere se il contenuto di a 
è un multiplo di otto è eseguire 


and 7 


Se, infatti, tutti i bit dallo 0 al 2 sono a 
zero, il valore non potrà che essere 
8,16,24,32,.. 

Se invece il valore della y è un multiplo 
di otto, siamo di fronte al secondo od 
al terzo caso. 

Prima di distinguere fra i due eseguia- 
mo un’operazione comune ad entrambi, 
e cioè l’incremento di 32: 


ld al 
add a,32 
ld l,a 
infatti, 


—1760=—-256°7+32 


Proprio questa operazione ci dà la chia- 


ve per distinguere fra i due casi. Se ci 
troviamo in presenza del primo byte di 
un nuovo blocco, l’operazione 


a+t32 


darà riporto, cioè il suo risultato supere- 
rà 255. In questo caso basterà aumen- 
tare di 1 h, per obbedire al riporto, ed 
avremo ottenuto il nuovo indirizzo. 

Se invece riporto non c’è, occorrerà sot- 
trarre 256*7, cioè eseguire 


ld a,h 
sub 7 
ld h,a 


Riassumendo, la prima scelta avviene 
sulla base dei multipli di otto, con un 
salto condizionato verso OUTCHAR. 
La seconda scelta avviene invece sulla 
base della presenza o meno di riporto, 
con un salto condizionato verso INC- 
H. 

Al ritorno da questa subroutine hl con- 
terrà il nuovo indirizzo. 

Ci rimane l’ultima subroutine, PLOT. 
Qui si inizia col caricare in a il byte (cioè 
la riga) da stampare. Quindi c viene az- 
zerato, pronto ad accogliere la parte di 
riga che andrà nel byte successivo (vi 
ricordate la storia dei due pezzi?). 

A questo punto viene effettuato un con- 
trollo, per vedere se il contenuto di b 
(cioè in questo caso il numero del bit di 
inizio) è zero. A questo servono le ope- 
razioni 


inc b 
dec b 


che influenzano i flag senza utilizzare a, 
cosa necessaria volendo ottenere lo 
stesso risultato con una 


and a 


Se b è zero, si passa subito alla fase di 
trasferimento all’area video, non neces- 
sitando alcuna suddivisione. Questo 
perché, in realtà, il dato restituito in a 
dalla subroutine PIXEL è 7—N, dove N 
è il numero d’ordine del bit, e quindi un 
carattere che inizia al bit 7 finisce al bit 
0 dello stesso byte. 


Lo scorrimento 

Nel caso invece si renda necessaria la 
suddivisione della riga in due parti, que- 
sto avviene per mezzo di due operazioni 
a noi nuove: 


rra 
rc 


Si tratta di operazioni di scorrimento. 
Supponendo che a contenga 


11011001 


ed il flag di riporto sia a 0, l'esecuzione 
di 


rra 
produrrà in a il valore 
01101100 


e nel flag di riporto il valore 1. 

Cosa è successo? 

Il contenuto dei vari bit all’interno del 
registro è “scivolato” verso destra di 
una posizione. Il posto del bit 7 è stato 
preso dal contenuto del flag di riporto, 
mentre quello del bit 0 è andato a finire 
nello stesso flag. 

Questa operazione esiste per tutti i regi- 
stri, sia verso destra che verso sinistra. 
Eseguendo in sequenza 


rra 
Tr Cc 


trasferiremo perciò, un bit per volta, il 
contenuto di a in c. In pratica, avviene 
un “passamano”, in cui a deposita un 
suo bit nel flag di riporto e c se lo pren- 
de. 

In realtà anche c deposita un suo bit nel 
flag, e a se lo prende, ma poiché c è 
stato a suo tempo azzerato, la cosa non 
ci dà alcun fastidio. 

Questa sequenza di due operazioni vie- 
ne ripetuta sotto il controllo di b, che 
contiene appunto il complemento a 7 
del numero d’ordine del bit. 


Dalla grande 
edicola 
Jackson 
Tutto sul personal 
computer 
COMPUSCUOLA 


La rivista di informatica nella didattica per la 
scuola italiana. 

9 numeri all'anno: L. 2.000 a numero 
Abbonamento: solo L. 15.000 


Personal ) 


L'unica rivista indipendente per gli utenti dei 
personal computer Olivetti. 

10 numeri all'anno: L. 4.000 a numero 
Abbonamento: solo L. 35.000 


Terminata questa fase si passa al trasfe- 
rimento all’area video. 
Questo avviene in due fasi: 


xor (hl) 


operazione di or esclusivo del contenuto 
di a (riga del carattere) e il contenuto 
della locazione dell’area video in cui an- 
drà inserito. Il risultato di questa opera- 
zione è in a. 


ld(hl),a 


Caricamento del risultato nel- 
l’area video. 

Perché tutto questo? Non sarebbe più 
semplice eseguire solo la seconda ope- 
razione, cioè il semplice caricamento? 
Senz'altro; ma in questo modo si perde- 
rebbe quanto c’è già in quella locazione, 
vale a dire l'eventuale sfondo, od altri 
caratteri vicini. Visto poi che, come stia- 
mo per vedere, l'operazione di carica- 
mento si estende per due caratteri, il 
danno sarebbe molto appariscente. 

Un altro metodo per inserire senza dan- 
ni il carattere nel contesto del video po- 
trebbe essere l'operazione di or. In que- 
sto caso sarebbe però impossibile la 
successiva cancellazione, a meno di non 
distruggere tutto con un 


Aspetti e problemi del software per personal 
computer, programmi, giochi e sistemi 
operativi. 

11 numeri all'anno: L. 4.000 a numero 
Abbonamento: solo L. 34.000 


La prima rivista europea di personal 
computer, software e accessori. Con test, 
novità, analisi del mercato... 

11 numeri all’anno: L. 5.000 a numero 
Abbonamento: solo L. 43.000 


\l 


L'unica rivista italiana dedicata ai sistemi 
MS-DOS, Personal computer IBM e 
compatibili. 

10 numeri all'anno: L. 5.000 a numero 
Abbonamento: solo L. 40.000 


ld (hl),0 


Lo stesso procedimento si ripete per il 
secondo pezzo della riga, che viene in- 
serito nel byte successivo: 


ld a,c 
inc hl 
xor (hl) 
Id (hl),a 


Per restituire ad hl il suo valore origina- 


-le l’ultima operazione prima di ritornare 


è 
dec hl 


Non prendetevela... 

Senz'altro questa spiegazione non è sta- 
ta chiara come avrebbe dovuto. D’altra 
parte, per esserlo avrebbe riempito non 
una, ma due o tre riviste. 

Dandovi appuntamento alla prossima 
puntata, in cui vedremo qualcosa di più 
semplice, ma altrettanto interessante 
nel funzionamento, invito gli “insodisfat- 
ti” ad esaminare per conto loro, sulla 
base delle informazioni di questo artico- 
lo, la routine presentata. Se le perples- 
sità rimarranno, le loro lettere saranno 
graditissime. 

A presto! 


Quando l’informazione 
fa testo 


nie i 


| In busta chiusa inviate questo coupon a: [| 
| Gruppo Editoriale Jackson 
| via Rosellini, 12 - 20124 Mi 
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L 
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di Paolo Bain 


Un piccolo capolavoro di pro- 
grammazione per lo ZX81! 


uesto programma potrà esservi 
d’aiuto quando vi troverete davanti 


a tabelle lunghe e complicate di qualsia- 
si genere: il suo funzionamento ricalca 
infatti quello dei famosi Visicalc, Multi- 
plan, ecc. 

Per quelli che non sanno che cosa sia 
un tabellone elettronico cercheremo di 
spiegare brevemente il loro utilizzo. 
Facciamo un esempio; dobbiamo calco- 
lare la spesa complessiva della nostra 
famiglia, perciò immetteremo nel pro- 
gramma le voci più importanti: luce, ac- 
qua, gas, ecc., e naturalmente i loro 
costi, il tutto creando una tabella e po- 
nendo in relazione i dati tra di loro me- 
diante apposite formule. 

Basterà ora la pressione di un solo tasto 
per calcolare i totali, naturalmente in 
base alle formule che avrete prima in- 
trodotto; e se un dato cambia, o è desti- 
nato a variare nel tempo, voi potrete 
correggerlo e ricalcolare in un momento 
il nuovo totale, consentendovi di preve- 
dere cosa accadrà, a seconda della va- 
riazione considerata. 

I comandi di Videocalc sono parecchi, 
però prima di elencarveli vorremmo 
parlarvi del programma in sé. 

Questo è molto semplice e si presta fa- 
cilmente a modifiche: è relativamente 
corto e possiede molteplici possibilità. 
C’è anche una funzione di Help, richia- 
mabile in caso di bisogno, che dà brevi 
spiegazioni di ogni opzione. 

Ora torniamo al funzionamento del pro- 
gramma. Dopo averlo caricato con 
LOAD “VC” o LOAD“”, ed aver aspet- 
tato circa 3 min., apparirà il nome del 
programma insieme alla scelta della ve- 
locità di esecuzione, FAST o SLOW, 
questa scelta influirà solo parzialmente, 
in quanto in certe parti del programma 
è forzatamente selezionata l’una o l’al- 
tra velocità. 

Dopo la scelta iniziale compare la lista 
dei comandi, e premendo ancora un ta- 
sto apparirà il tabellone con un grande 
cursore lampeggiante, in alto a sinistra, 
che si può muovere con i tasti-freccetta 
(5,6,7,8). Inoltre, premendo shift+“6” 
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e shift+“7” il cursore si sposta di due 
caselle alla volta. 

Lo schermo (di 3 caselle per 20) rappre- 
senta solo una parte del tabellone, es- 
sendo quest’ultimo infatti lungo in tutto 
9 caselle. 

Per far entrare nello schermo le parti 
del tabellone non visibili si usano i co- 
mandi Avanti, Indietro e Muovi, vale a 
dire shift+“A”, shift+“I” e shift+“M?”; il 
primo fa scorrere in avanti lo schermo 
sul tabellone, il secondo lo fa scorrere 
indietro e il terzo chiede il numero da 
dove deve cominciare lo schermo. 

I comandi relativi alle caselle sono mol- 
ti; cominciamo con quelli più frequenti: 
shift+“P” permette di scrivere nelle ca- 
selle testi o numeri (in quest’ultimo caso 
il computer provvederà automatica- 


mente ad incolonnazrli). 
Il comando shift+“0” cancella il conte- 
nuto della casella su cui si trova il curso- 


re. 
Le funzioni probabilmente più utili sono 
shift+“1” e shift+“2”; la prima si chia- 
ma Memorizza e la seconda Ricopia; si 
occupano rispettivamente di memoriz- 
zare il contenuto numerico di una casel- 
la e di riportarlo nella casella occupata 
dal cursore. 

Per quanto riguarda le formule si usa il 
comando shift+“F”, che permette di in- 
serire la formula relativa alla casella do- 
ve è posizionato il cursore, indicando 
una casella come “W(n1,n2)”, dove nl 
ed n2 sono rispettivamente le righe e le 
colonne. Se per esempio desideriamo 
che la casella alla riga A e alla colonna 


3 contenga il risultato della somma dei 
due numeri contenuti nelle caselle situa- 
te una all’intersezione di riga 7 e colon- 
na 2 e l’altra all’intersezione di riga B 
e colonna 1, porteremo il cursore sulla 
casella in riga A/colonna 3 e, dopo ave- 
re digitato shift+“F”, inseriremo la for- 
mula W(7,2)+W(B,1). 

Il comando shift+“C” (Calcola) scrive su 


Videocalc 
versione per ZX81 16K 


REN VIDEOCALE 
REM BRIN PAOLO 


fe fi fili di fi fe Di ppi 


pie oe 
n= 
m 
= 


qua 
© 


PRINT AT 6.10; "UIDECCALE" ; H 
HE Lit i AT e e = 
ST 1,10; “BRIN PROLOGO”; AT 16,2; "U 
SUE (1=3L04) (2=FAST) è" 


32 SOSUS seid 
34 LET US=INKEY 
48 DIM K$ild1l 
se DIN iJg$izà,35, 101 
S2 DIN Hisad,9I 
Sd DIM Cprizà, 9,301 
SERALE SI 
esce dal 
50 LET x1=0 
S2UCETEY IO 
65 LET A=il0 
ee LETIS=11 
68 LET Csi2 
SI VET D=TE 
FA LET E=ld 
PA LE. 
R2 LET Gale 
FRS ia 
P*> LET 1I=18 
75 LET J=19 
#65 LET K=29 
sà Gis isba 
158 sLoli 
151 PRINT AT Xx.Y;k$ 
152 LET X=X+X1 
ISPA LA ni / 
155 LET kKS$=li& (x , INT (Y/10+L)) 
158 PRINT AT x, VARIO SE. 
ib, LETAME =(\E ANÙ CUDE INKEY $=1 
13) 2 AND CODE TNKEY ‘6$=112)+(INK 
vg="S")- (INKEY$= 
tas (LETI NSEIN PEvs=" “I - (INKEY$ 
="'E"1 + 
154 IF X1::@ OR Yl:@0 THEN GOTO 
200 
TRO0IP: TNREY = STOP THEN G0S 
JB 1200 î 
1?2 IF INKEYS$="(" THEN GOSUB 12 
Sa 
174 IF INKEYS$=">" THEN GOSUB 13 
Aa 
1768 IF CODE INKEY$=11 THEN GOTO 
1345 
1?8 IF CODE INKEY$=119 THEN GOT 
i 1400 $ 
180 IF INKEY$=" FAST" THEN GOS 


tutto lo schermo il risultato di tutte le 
formule; il comando shift+“T” (Totale), 
invece, calcola il totale di una formula 
solo dove è posizionato il cursore. 

Il comando shift+“W” (Mostra), mostra 
le formule relative alla casella dove è 
posizionato il cursore. 

Inoltre ci sono dei comandi di utilità ge- 
nerale, come shift+“H” (Help), shift + 


“K”, che visualizza la lista dei comandi 
ed il loro nome, e shift+“S” per registra- 
re il contenuto del programma. Infine il 
comando shift+“E” (Esci) permette di 
uscire dal programma. 

Una cosa, per finire: nelle formule le 
coordinate delle caselle possono essere 
date come appaiono nel lato dello 
schermo, cioè come lettere. 


UB 1450 

36° IF SLMRENIEE 9 THEN GOSUB 15 
a 

184 IF INKEY$=" <>" THEN GOTO 15 
Sa 

07 IF INKEY$="+" THEN GOSUB 16 
155 IF INKEY $=" LPRINT " THEN G 
OTO 2100 

199 IF CODE INKEY$=11? THEN G0S 
UB 2000 

192 IF INKEYS$=" ANDU" THEN GOTTO 
2050 
_194 IF INKEY$=" STEP -" THEN GOT 
O ssaa 

196 IF INKEY$="+è*" THEN GOSUB 4 
ada PH! 

198 IF INKEYS$=" OR THEN GOSUB 


2A0 IF X+Xl:29 OR X+X1<1 THEN L 


“202 VI 
307 GE ‘A (SÒ 195 Yl+Y<0 THEN L 
ET Y1=® 


205 GOTO 150 


1000 IF vs="2" THEN FAST, i 
1025 PRINT _AT_ 0,0; MMM ;CHRs | 
156+L];" “;CHR$ (156+L+1) 
Pipa ";CHR$ (156+L+2); "IA 
FOR T=sl TO 20 
PRINT CHR$ (156+T);W$ (TL); 
IGT. L+1);W$ (T,L+2); CHR$ (155+T) 
1014 NEXT T 
1039 RETUR 
1200 IE 156 THEN RETURN 
1202 LET Ls=L+1 
1204 COSUE 1000 
1206 RETURN 
1 IF L=sl THEN RETURN 
2 LET LsL-: 
4 GOSUB 1000 
È ENPUT KK 
: 
3 IF KK>6 CR KK<1 THEN GOTO 1 


LET L=kk 
GUSUS 1000 


K È 
IF K$="" THEN GOTO 1549 

IF Ug="2" THEN FAST 

FOR T=1 TO 10 REL 

IF K&iT) <s" o" THEN GOTO 135 


NIUA As GOOSE SUI CILIi 


LUI WL Wi LIL iLW Wa Woo 
up Et di dt 
Hi 
Z 
U 
Cc 
=i 


PPREPPRPPAPEPPEEEPPOEPEEEEH 


S3 NEXT_T 

S4 IF CODE K$iT) 38 AND CODE K 
Ti 37 THEN GOUTO 1560 

SS LET U$(X,INT (Y/19+L))=K$ 
56 GOTO 150 

Sd LET WIX,INT (Yr1@+L))=VAL K 
381 LET LG=LEN STR$ VAL K$ 

383 LET W$iX,INT iY-10+L))=P$ (2 


SUPERSINC® 8/85 . 31 


{ 
dI 
i 
4 


D TO 239-LG1\+STR$ VAL KS 

1353 LET KS$=WS$X,INT iY19+L)) 

13654 GOTO 150 

l4da LET K$=" : 

1405 LET IS$iX,INT (Yr19+L)1 a 

LIO ZULET MEG iNzlO+L)})=& 

l4la GOTO 15 

450. IF US= 0 THEN FAST 

1451 INPUT H$ 

1452 IF LEN H$\30 THEN GOTO 1451 

1455 LET C$(x, INT i(Y-z190+L)1]=H% 

14585 RETURN 

15004 FAST 

1514 FOR T=1 TO 204 

1512 FOR R=1 TO 9 

“voi IF C$:T,R) <:FP$ THEN GOTO 15 

3 

ISL5 ie R 

LISta NE SM 

1520 SOSUB 1000 

1522 SLOUY 

1525 RETURN 

15309 LET WIT,RIV=eUAL Csi i) 

1553 LET LG=LEN STR$ Li i) 

1534 LET W$(T.Ri=P$ (20 29-L6) 

+5TR$ WIT,.R) 

1535 GOTO 1515 

15509 IF U$="2" THEN FAST 

Leida es 0G ENT iY/10+L) ) =P$ TH 

EN GOTO 158 ; 

1552 LET K$=5TR$%$ VAL C$IX,INT UY 

#109+L)) r 

ESSARISET aa INT (Yr19+L)) =K$% > 

o EER INT iyr:10+L)}) =VAL K 

1558 G0T0 1351 

1600 CLS mai 

165095 FRINT TAB 4; "VIDEOCALC" 

16095 FRINT 

16505 PRINT “COMANDI :" 

16029 PRINT Ò 

1610 PRINT ""SHIFT+""A"" - ARUA 

Li je OSS 

1612 PRINT “SHIEA Dee - > IND 

IETRO" 3 

1B14 PRINT Et ga I E i -> CAN 

CELLA" DI 

1616 PRINT "SHIFT+""T"" - > TOT 

RLE" 

1618 PRINT "SHIFT+""C - CAL 

COLA" 3 

16520 PRINT "SHIFT+""5"F" -> FOR 

MULE " È 
522 PRINT “"SHIFT+""M" --> MUO 


ENTRATE 
SUSCITE 


ì 
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PRINT “"SHIFT+""S""  --> REG 
PRINT “"SHIFT+""E""  --> ESC 
PRINT “"SHIFT+""1""  --> MEM 
P “SHIFT+""2""  --3 RIC 
PRINT “"SHIFT+""H""  --: HEL 
PRINT "SHIFT+""l""  --» MOS 
PRINT "SHIFT+""P""  --> SCR 


Moni Fot 
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GUSUB S60A 


FPPHEHF'UFOPOEHEHE 


deg Cm 
GEHLI DL 
SAUNE 
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THEN FAST 


DG 
Ge 
Pa 
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2 
K 
“2 THEN FAST 
x 
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Ca 


foafip= ho 
n 
=J 
DI 


URLE NOME DRI A QUE 


DZ 
HD 
Fi 
=] 


4 QUANDO SEI PRONTO 


E 
= 
H 
nu) 
n 
d°: 


M$=M$ TO LEN M$-1)+CHR 
M$ LEN M$) -128) 


INT AT 1,8; "EB BAIN PAOLO" 
RINT AT 8, (13-LEN Ms); "VID 


H 


a) 


GUDPOPeE-PPooMQOg0n Ione 
DICMMDIC 


CIN ENIGIOTNTIEA One ai 


ET :g(X, INT (Y10+L))=P$ TH 


DE (Y/1 


Lai aluiaTouie o eri fo fo fa fu fio diafo gio iu foto fo ui 


00+9NZUFFFOPFPE FPPeHEIPpPHPPI9HO0O 


LE 
NT 
uB' 8694” 
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a Softrivista che 


QUALCOSA DI SUPER, DI INEDITO, 
DI IRRESISTIBILE 


| giochi esclusivi per 
Commodore 64 e Spectrum 48 K 
importati dall’Inghilterra, mai 
presentati in Italia. 

Una sfida Jackson al già visto, : 
già fatto, al... già registrato. Lp 


Mii 000000 


Corri in edicola, il vero gioco comincia solo adesso 
e se sei davvero bravo partecipa alla “sfida al campione”, 
utilizzando il tagliando che troverai sull’ultima pagina - 

di copertina di ogni numero. 


GRUPPO 
EDITORIALE 


di Roberto Corona 


Con questa simpaticissima rivi- 
sitazione di un celeberrimo ar- 
cade lo Spectrum vi dimostrerà 
di non essere secondo a nes- 
suno... nemmeno come consolle 
per videogiochi! 


R "Bert è una versione semplificata del 
noto gioco da sala Q*Bert, da me 
realizzata per lo Spectrum 48K (ho 
cambiato l’iniziale del nome, perché 
quello originale è marchio registrato 
della Mylstar Electronics). Per chi non 
lo conoscesse, ecco di cosa si tratta: il 
protagonista (R*Bert) saltella su una pi- 
ramide fatta di cubi, facendoli cambiare 
di colore; quando saranno stati colorati 
tutti si passerà al livello successivo. A 
partire dal quinto livello viene introdot- 
ta una difficoltà: non basta saltare una 
sola volta sui cubi; infatti, al primo salto 
diventano di un colore intermedio e solo 
saltandoci sopra un’altra volta diverran- 
no del colore definitivo. Se fosse tutto 
quì, però, sarebbe troppo semplice e 
infatti R*Bert ha una nemica: una perfi- 
da pallina che piove dall’alto e comincia 
a saltare anche lei sui cubi, riportandoli 
al colore di partenza. È ovvio che se 
R*Bert si lascia raggiungere dalla palli- 
na, perde una vita. Un altro modo di 
morire è fare un salto fuori dalla pirami- 
de di gioco, precipitando nel vuoto (del- 
l’originale ho conservato le simpatiche 
imprecazioni che il nostro protagonista 
proferisce ogni volta che gli capita un 
incidente), mentre le vite si guadagnano 
coi punti: una a 100 punti, poi un’altra 
a ogni raddoppio del punteggio (200, 
400, 800, ecc.). 

Le apparizioni della pallina sono casua- 
li, ma sono anche legate ai livelli di gio- 
co: più si procede e più spesso verrà, 
ma soprattutto ai primi livelli i suoi salti 
sono del tutto casuali, mentre con 
l'avanzare dei livelli tende sempre più 
tenacemente ad inseguire R*Bert. Risul- 
teranno in questo caso utili le due “stel- 
le magiche”, che dai due cubi estremi 
della base portano automaticamente 
sulla cima della piramide (con un decre- 


Descrizione delle variabili 


a,b 
c,d,e 


ij 

pt 

L] 

Il 

x,y 
xx, YY 


_r 
in,in1,in2 


att,attl,att2 
le,ri 

zzz 

ct 


variabili di uso generico in varie parti del programma 
usate con a e b per memorizzare gli ATTRibuti da ripristina- 
re nei cubi coperti dal fumetto 

variabili di controllo dei cicli FOR...NEXT 

punteggio del gioco 

vite a disposizione 

livello raggiunto 

coordinate di R*Bert 

coordinate della pallina 

numero generato tramite RND per varie scelte casuali 
colore iniziale, intermedio e finale della faccia superiore dei 
cubi 

ATTRibuti relativi a in, inl e in2 

colori delle facce laterali dei cubi 

usate nella lettura della tastiera 

conto dei cubi già colorati. Deve arrivare a 21 per completa- 
re il livello 

incremento da dare a ct quando si colora un cubo. Vale 1 
nei primi quattro livelli e 0.5 nei successivi 
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mento di punti pari al quadrato del livel- 
lo raggiunto). 

Ed ora qualche commento al listato: la 
prima cosa che salta all’occhio è la sua 
lunghezza; infatti, nell'intento di aumen- 
tarne la velocità di esecuzione (fonda- 
mentale in questo genere di programmi) 
ho deciso di lasciare da parte alcune 
astuzie di programmazione, che poteva- 
no risolvere in poche righe le istruzioni 
di movimento sia di R*Bert che della 
pallina, ma, richiedendo un numero più 
elevato di calcoli, con variabili tempora- 
nee, cicli e rimandi, avrebbero reso il 
gioco meno dinamico. Per lo stesso mo- 
tivo ho cercato di organizzare tutto il 
listato in modo che l’esecuzione possa 
procedere con il minor numero possibile 
di GO TO e GO SUB. £ 
Ho anche deciso di non ricorrere al si- 
stema diffuso di registrare gli UDG se- 
paratamente rispetto al programma, in 
quanto giudico questo espediente utile 
soltanto quando consenta il caricamen- 
teo del programa in 16K, ma nel nostro 
caso eliminare i DATA non sarebbe suf- 
ficiente. L’unico altro motivo che può 
indurre a registrare i caratteri grafici a 
parte è che ogni volta che per qualsiasi 
ragione si ferma il programma, facendo- 
lo ripartire con RUN i caratteri vengono 
nuovamente definiti, e se sono molti oc- 
corre attendere qualche secondo, ma 
ho eliminato questa possibilità con 
l'istruzione di linea 1150, che controlla 
se l’ultimo dato dell'ultimo UDG utiliz- 
zato è corretto (e quindi se i caratteri 
grafici sono già stati definiti); in tal caso 
viene saltato il ciclo di linea 1160. Forse 
qualcuno avrà già notato la linea 1190 
e si domanderà la sua utilità. La variabi- 
le “rec”, che contiene il record del gio- 
co, viene caricata con un valore che 
viene letto nella locazioni di memoria 
USR“u” e USR“u”+1, nelle quali all’ini- 
zio si trova 100, ma vengono aggiornate 
con il nuovo valore ogni volta che il 
record precedente viene superato. 
Questo fa sì che il valore del record sia 
memorizzato oltre il RAM-TOP, e non 
solo nell’area variabili, quindi se il pro- 
gramma viene fermato e fatto ripartire 
con RUN, tutte le variabili vengono riini- 
zializzate, ma il valore di “rec” non ver- 
rà perso. Lo stesso discorso può farsi 
per la variabile stringa r$, che contiene 
il nome del detentore del record e i cui 
codici dei caratteri si trovano nelle loca- 
zioni da USR“u”+2 a USR“u”+12. 
Spero che tutti coloro che amano usare 
il computer anche per programmare, e 
non solo per giocare con programmi al- 
trui, possano aver trovato qualcosa di 
utile in queste mie righe, perché realiz- 
zare un programma con le proprie ca- 
pacità, studiare i possibili miglioramen- 
ti, risolvere i problemi più disparati (dal- 
l'impaginazione alla velocità di esecu- 
zione) e vedere infine apprezzati i frutti 
di tale lavoro, oltre ad essere innegabil- 
mente utile per affinare le proprie capa- 
cità di programmatore, dà una soddisfa- 
zione che nessun giochino altrui potreb- 
be dare. 
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punteggio da raggiungere per vincere una vita (all’inizio è 
100 e raddoppia ogni volta che viene raggiunto) 
punteggio record 

usata nel volo delle stelle magiche per ricavare da g$ le 
giuste coordinate: vale —1 per la stella di destra e 1 per 
quella di sinistra 

usata nel suono di Game Over 

porzioni del testo delle istruzioni per ottenere l’effetto tele- 
scrivente _ 

10 spazi. E usata per cancellare 

caratteri coperti dall’arrivo della pallina 

valori per le coordinate del volo delle stelle magiche 
usata nell’INPUT del nome di chi ha realizzato il record 
nome dell’attuale detentore del record 

usata per trasferire i caratteri di r$ nell’area degli UDG 


Descrizione del programma 


Linee 
1070 


1150 


1190 
1290-1300 


1330 


1520 


1580 


1620 
2000 


2020-2030 


2110 


Commento 

la funzione FN a, date le coordinate di schermo x e y, 
restituisce il relativo indirizzo del File Attributi. Una POKE 
a tale indirizzo realizza la funzione inversa di ATTR(x,y) 
se l’ultimo elemento dei caratteri definibili è quello giusto, 
significa che il programma ha già girato e vengono quindi 
saltate le fasi di caricamento UDG e presentazione istruzio- 
ni, anche in caso di RUN. Se si vuol cambiare qualche 
elemento dei DATA, per modificare alcuni caratteri, per 
ottenerne la lettura e il caricamento battere GO TO 1160. 
Se si vogliono solo rileggere le istruzioni, scrivere GO TO 
3100 

decodifica il record e il nome del detentore 

la clausola che tra i colori in, inl e in2 la differenza deve 
essere almeno 2 (cioè non vi siano colori contigui, come 
4-green e 5—cyan, o 0—black e 1—blue) evita che giocando 
con un TV in bianco e nero ci possano essere dubbi sul fatto 
che una superficie sia dell’uno o dell’altro colore 

il valore di ip è 1 nei primi quattro livelli. Tale valore viene 
sommato a ct (che è azzerata ad ogni nuovo livello) ogni 
volta che si colora un cubo, e quando ct arriva a 21 vuol 
dire che tutti i cubi sono stati colorati. Dal quinto livello ip 
vale 0.5, in quanto i cubi devono essere colorati due volte 
ciascuno. Saranno quindi necessari 42 salti per portare ct 
al valore 21 di fine schema 

se non viene premuto nessun tasto, aspetta un tempo inver- 
samente proporzionale al livello raggiunto, prima di passare 
la mossa alla pallina. 

Tale tempo va da PAUSE 16 (livello 1) a PAUSE 1 (livello 
15 e succ.) 

la pausa si ottiene col tasto “P” quando è il proprio turno. 
Se la mossa spetta alla pallina, questa si muoverà e solo 
al nostro turno il gioco verrà sospeso. 

premendo il tasto “G” la pausa viene interrotta e il gioco ri- 
prende 

si genera un numero casuale, che può andare da 0 a 21 
(primo livello) fino a da 0 a 2 (dal 20° livello in poi). Se 
tale numero è 0, allora entra in campo la pallina 

la pallina, entrando in campo dall’alto, copre nella sua di- 
scesa una serie di caratteri, che vanno subito rimessi a 
posto. La successione di questi caratteri è memorizzata in 
f$. Se R*Bert si trova sulla sua traiettoria, il carattere corri- 
spondente viene inserito nel corretto punto della stringa f$ 
si genera un numero casuale, che al primo livello va da 0 
a 4, poi il range aumenta fino al ventesimo livello, in cui 
può andare da 0 a 21. 

Se tale numero è minore di 5, il GO TO calcolato porta a 
una mossa a caso. Se è uguale o maggiore di 5, il GO TO 
porta all’esecuzione delle linee 2360-2390, che rimandano 
alla mossa adeguata, a seconda che R*Bert sia più a destra 
o più a sinistra, più in alto o più in basso della pallina. Con 
ciò si ottiene che al 1° livello non vi sia alcun inseguimento, 
ma solo mosse casuali, e col procedere del gioco le mosse 
casuali diventano sempre più improbabili ed aumentano 
quelle ad inseguimento 


2400 


2520 


2575 


2590 


2630 


2640 
2650-2660 
2680 


2690 
2695 


2760 


capita molto raramente, ma se la pallina con un salto casua- 
le va su una stella magica, morirà tragicamente, regalandoci 
10 punti 

se viene stabilito il record, le due POKE memorizzano il 
punteggio oltre il RAM—TOP, che quindi non viene azzerato 
da un eventuale RUN (e neanche dal NEW: se il computer 
non viene spento, si può ricaricare il gioco e ritrovare il 
record fatto in precedenza!) 

premendo il tasto “S”, si cambia stato alla variabile logica 
s, che viene posta a 1 o a 0, attivando o disattivando il 
suono che accompagna l’invito a giocare ancora 
scrivendo ripetutamente l’invito a premere il tasto “G”, 
utilizzando l’opzione OVER 1, si ottiene l’effetto di farlo 
comparire e scomparire. 

La scelta di PAPER 8 (ampiamente sfruttata nel corso del 
programma) permette di scrivere senza cambiare i colori 
dei cubi che fanno da sfondo, mentre INK 9 evita che la 
scritta risulti poco leggibile o addirittura invisibile 
l'introduzione del nome del giocatore è realizzata tramite 
INKEY$, in quanto l’INPUT utilizzerebbe le righe inferiori 
dello schermo, in cui sono visualizzati i dati relativi al livello 
e al punteggio raggiunti 

il CHR$ 13 corrisponde all’ENTER, e segnala la fine dell’in- 
troduzione 

il CHR$ 12 corrisponde a DELETE, ed è attivo solo se è 
presente almeno un carattere 

per evitare l’accettazione continuata dello stesso carattere, 
l'elaborazione non va avanti finché il tasto premuto non 
viene rilasciato 

se sono stati inseriti 11 caratteri, l’immissione termina sen- 
za bisogno di premere l’ENTER 

i codici dei caratteri che compongono r$ (il nome del gioca- 
tore) vengono posti in coda all'area UDG, come già visto 
per il punteggio del record 

la stringa g$ contiene lo spostamento orizzontale nel volo 
delle stelle magiche; dalla stella di sinistra tale spostamento 
è verso destra, e viceversa. Per questo motivo il valore è 
moltiplicato per sg, che vale 1 o —1, a seconda della stella 
di partenza 

questa formula fa sì che il fumetto venga disegnato in ogni 
caso in una posizione ben determinata, in modo da poter 
poi ricostruire agevolmente il disegno sottostante 

prima di disegnare il fumetto si prende nota dei colori (AT- 
TRibuti) di ciò che verrà coperto, che può essere un cubo 
colorato o da colorare, o una stella o semplicemente lo sfon- 


O) 

l’effetto telescrivente è realizzato da questa linea che analiz- 
za la stringa a$, la quale non deve contenere codici di 
controllo come quelli dei colori o di INVERSE VIDEO, pena 
errore K, in quanto tali codici sono formati da due caratteri, 
mentre con questa istruzione si stampa un solo carattere 
alla volta 


 ogn venetdh' 
nedola Troy 


Il tro settimanale 
di sotluare si c3;13!! 


Nella cassetta 


allegata a questo 
numero di 
SUPERSINC troverete 
un programma 
omaggio: “Psyco” di 
Massimo Baldassarre 
del Gruppo 
Utilizzatori computer 
Sinclair 
e MSX Napoli. 


1010 
1020 
1030 


1040 


1050 
1060 


1070 
1080 
1000 REM 
REM 1090 
REM R*BERT VI.1984 
REM Ss 
critto da Roberto Corona via | 1100 
Giraldi (8,.-. 50122 Elrenze 
otti. (055) 202398 + 
REM 1110 
__inizializzazioni generali 
CLEAR 65300: POKE 23675,70 
BRIGHT 0: FLASH 0: OVER 0: 120 


INVERSE 0: INK 0: PAPER 0: 
BORDER 0: CLS RANDOMIZE 


LET r$="": DIM c$ (10): DEF. FN'al( 
xX,y)=22528+x*32+y 

DATA 0,0,0,0,3,15,63,255,3,15,63 
1255255 255,255 ,255.,:92 72402532 
2:55, 25572 Ddi, 200 7299 

DATA 0,0,0,0,192,240,252,255,255 
BIS 730, 07070, 2552552557295 
155763 hO 

DATA 255,255,255,255,255,252,240 
,192,255,252,240,192,0,0,0,0,60, 
126,219,255,255,189,195120 
DATA 60,126,255,255,255,255,126, 
60,3,14,28,28,28,28,14,3,192,112 
ri0i,0.,/2485 0750 216 

DATA 60,126,219,189,255,255,195, 
126,00, 00, 1.5 ,63:127,127,0,0,07 
0,240,252,254,254 
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1130 


1140 


DATA IZ 27,,63/,5,0,0/,0/,:0,, 2552 
55,255,255,31,;62,124,2407254,254 
1252,240,0,0,0,0 

DATA 56,124,146,146,254,124,84,8 
4,0,66,195,36,24,36,195,66,0,100 
182:442',66,69,82,84,32,32,32,32,3 
2 


IF PEEK (USR "t"+7)=66 THEN 

GO TO 1180 

PRINT AT 10,6; INK Sir MAGI REN 
DE RAEE 

RESTORE : FOR i=USR "a" TO USR " 
u"+12: READ x: POKE i,x: NEXT i 
GO TO 3100 

LET g$="000010101011122" 


LET rec=PEEK USR "u"*256+PEEK ( 
USRILSU NE) (RORSI=2 TO; 2: LET r 
$=r$+CHR$ (PEEK (USR act). 
NEXT i 
LETZ=255:éCET2zz2=191 
REM 
inizio nuova partita 
LET. LE=l LET dp=l 
LET v=100 
LET xx=0: LET yy=0: LET 1=3 
LET ct=0: LET pt=0 
LET.-x=9: LET y=16: LET in2=7 
_ REM 


inizio nuovo livello 
LET in2=in2-1: IF in2<0 THEN 


LET in2=6 sr 
LET in=INT (RND*7): IF ABS (in-i 
n:2})\<2\THEN: GOITO: 1290 


LET inl=INT (RND*8): IF ABS (in- 


. inl)<2 OR ABS (inl-in2)<2 THEN 


GO TO 1290 

LET ri=INT (RND*4+2): 
INT (RND*6+1) 

LET att=in+8*le: LET att2=in2+8* 
le: LET attl=inl+8*le 

(E li>=5PHEN"” (KEEP ip=eD 

REM 


LET le= 


disegno campo 
PRINT AT 0,22; INK 9; PAPER in2; 
“RORASDEVI[* AT de225! COLORARE 
";AT 2,22;" ";AT 3,22;" 
COST! bi 

FOR i=1 TO 6 
LET a=3*i: LET b=16-1i*2 

PRINT INK in;AT a,b;"AB";AT a+l 
ib; PAPER ri;"EF";AT astio 
FOR j=1 TO i-1 
LET b=14-i*2+j*4 

PRINT INK in;AT a,b; PAPER ri;" 
CD"; PAPER le;"AB";AT a+1,b;"GH" 
; PAPER ri;"EF";AT a+2,b; 

PAPER le;" "; PAPER ri;" " 
NEXT j 

LET b=14-1i*2+j*4 

PRINT INK in;AT a,b;j"CD";AT a+! 
sb; PAPER le; "GH"z;AT‘at2,b;"  " 
NEXT i 

PRINT.AT'21,4;:s (\EOR 1= TO:!6: 
PRINT PAPER ri; "CD; PAPER le; 
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1470 


1480 


1490 


1500 


1510 


1520 
1530 


1540 


10550 


1560 


1570 


1580 


1590 
1600 


1610 


1620 


1630 


1640 


1650 


1660 


1670 


1680 
1690 


VABW::: NEXTOI 
PRINT INK 7; BRIGHT 1;AT 16,2;" 
EGFH";AT 15,2;"ACBD";AT 16,26;"E 
GEHUSATLL5,2 65 ACBD® 
IF xx>0 THEN PRINT AT xXx,yY; 
INK 1; PAPER 8;"J" 
PRINTATMA07 0rest'esles esc AT 022 
PCSpAT 1:22 ATn2,,22;; CS; ADI 2 
25/05 
PRENDSESA TO 1705 
BRIGHT. 1;"LIVELLO:: ";11;" 
{38C8}%:Ar 1,13:"VITE: “;1;;" 
{3SG8}"7ATWli,:23<{(pt>=100) ; "PUNTI 
“FAT +EENiISTRS pt; 
PAPER 7; BRIGHT 1l;" "; INK 0;pt 


PAPER 7; INK 0; 


REM 

accettazione mossa 
PAUSE 1+(15-11)*(11<15) 
PRINT AT x,y; INK 7; PAPER 8;"I" 


IF IN 63486<>z AND IN 63486 
<>zz THEN GO TO 1630 
IF IN 61438<>z AND IN 61438 
<>Zzz THEN GO TO 1690 
IF IN 65278<>z AND IN 65278 
<>zz THEN GO TO 1750 
IF IN 32766<>z AND IN 32766 
<>ZZ THEN GONSTO. 1910 
TE INKEYS="p" OR INKEYS="P" 


THEN BEEP .02,0: GO TO 1600 
GOSTO*19:80 
PRINT AT 0,6; INK 2; PAPER 6; 


FLASH 1;"PREMI KL PER GIOCARE" 
IF INKEYS<>"g" AND INKEYS<>" 
G" THEN GO TO 1610 


PRINT AT 0,6;c$;c$: PAUSE 1: 
BEEP .02,10: PAUSE 50: GO TO 15 
10 


PRINT AT x,y; INK 8; PAPER ICE 
: POKE FN a(x,y),ATTR (x,y+1l): 
LET x=x-1: PRINT AT x,y; INK 7; 
PAPER. Bet 

PRINT AT x,y; PAPER 8;" ": 

POKE EN a(x,y) ,ATTR (x,y+1l): 
LET x=x-1]: PRINT AT x,y; INK 7; 
PAPER 8; "I" 
PRINT AT x,y; INK 8; PAPER 8; "E" 
: POKE FN a(x,y),ATTR (x,y+l): 
LET x=x-1: PRINT AT x,y; INK 7; 
PAPER 8;"I" 

PRINT AT x,y; INK 8; PAPER 8;"A" 
: POKE FN a(x,y),ATTR (x,y+1): 
LET x=x-l: LET y=y-l: PRINT 

AT XY INK../;- PAPER. 8i;.!"I" 

PRINT AT x,y; PAPER 8;" ": 

POKE FN a(x,y) ,ATTR (x,y-1): 
LET x=x+1: LET y=y-l: PRINT 

AT x,Ys INK. /; PAPER 8;"I" 

GO TO 1860 pe 

PRINT AT x,y; INK 8; PAPER 8;"C" 
: POKE FN a(x,y),ATTR (x,y+1):° 
LET: x=X-1: PRINT'ATUxX,y; INK 7; 
PAPER 8;"I" 


1700 


1710 


1720 


17:30 


1740 
1750 


1760 


1770 


1780 


le7:90 


1800 
1810 


1820 


1830 


1840 


1850 


1860 


1870 


18380 


PRINTPA Ris ,Vp PAPER; ne 

POKE FN a(x,y) ;ATTR (x,y+l): 
LET x=x-l: PRINT .AT x,y; INK 7; 
PAPER 8;"I" 

PRINT AT x,y; INK 8; PAPER 8; "E" 
: POKE FN a(x,y) ,ATTR (x,y+1):o 
LET x=x-1: PRINT AT x,y; INK,7; 
PAPER 8;"I" 

PRINT AT x,y; INK 8; PAPER 8;"A" 
: POKE EN a(x,y) ,ATTR (x,y+1l):o 
LET x=x-1: LET y=y+1: PRINT 

Abby INK 7p:\PAPERV8;:!LI" 

PRINT (AT: x ,V5) (PAPER: 8; Ue 

POKE FN a(x,y) ,ATTR (x,y-1l): 
LET x=x+1: LET y=y+1: PRINT 

AT x,y; INK 7; PAPER ARL 

GO TO 1860 

PRINT AT x,y; INK 8; PAPER 8;"C" 
: POKE EN a(xyy) ,ATTR (x,y+1):0 
LET x=x-1: LET y=y-l: PRINT 

AT x,y; INK 7; PAPER 8; "I" 

PRINT AT x,y; PAPER 8;" ": 

POKE FN a(x,y) ;ATTR (x,y-l): 
LET x=x+1: LET y=y-1: PRINT 

AT x,y; INK 7; PAPER 8;"I" 

PRINT AT x,y; INK 8; PAPER 8; "A" 
: POKE FN a(x,y) ATTR (x,y+l):0 
EBTEx=xXHl' 3; PRINEFATOX, y3i INK! 75 
PAPER 8;"I" 

PRINT AT x,y; INK 8; PAPER 8; "E" 
: POKE FN a(x,y) ,ATTR (x,y+l):0 


LET .ix=xXtliz8PRINTRATIXxV; INK) 7; 
PAPERCS SUI" 

PRINT AT x,y; PAPER 8;" ": 
POKE FN a(xy,y) ,ATTR (x,y+1): 
LEP x=Xx+1: PRINT AT .Xx,Yy5 INK 7; 
PAPER 8; "I" 

GO TO 18607 


PRINT AT x,y; INK 8; PAPER 8;"C" 
: POKE EN a(x,y) ,ATTR (x,y+1):" 
LET x=x-1: LET y=y+l: PRINT 

AT, V INK 7 PAPERS: I 

PRINT AT x,y; PAPER 8;" ": 


POKE FN a(x,y) ,ATTR (x,y-l): 
LET x=x+1: LET y=y+l: PRINT 
ATX Vr INK 75° PAPER 85 


PRINT AT x,y; INK 8; PAPER 8;"A" 
: POKE FN a(x,y) ,ATTR (xyy+1):0 
LET x=x+1: PRINT AT x,Y; INK 7; 
PAPER 8;"I" 

PRINT AT x,y; INK 8; PAPER 8;"E" 
: POKE FN a(x,y) ,ATTR (x,y+l):o 


LET x=x+1: PRINI.,AT x,y; INK, 4; 
PAPER 8;"I" 

PRINT AT x,y; PAPER 8;" ": 

POKE FN a(x,y) ATTR (x,y+1): 
LET x=x+1: PRINT AT x,y; INK 7; 
PAPER 8;"I" 

IF ATTR (x+1,y)=71 THEN BEEP 1, 
60: GO TO 2710 

TE ATER (x#1,y)=0 OR x>T8 OR “(= 


xXx AND y=yy) THEN GO TO 2880 
BEEP .04,-10: IF ATTR (x+1,y)=at 
t2 THEN GO TO 1970 


MIVELLO: 2 


1890 


1900 


1910 


1930 
1940 


1950 


1960 


1970 


1980 


1990 
2000 


2010 
2020 
2030 
2040 
2050 


2060 
2070 


2080 


_ d 


UITE: 5) PUNTI ZIO 


IF ip=1 OR ATTR (x+1,y)=attl 
THEN GO TO 1940 
PRINT OVER 1; INK inl; PAPER 8; 
AT Xx,y-2;" "> INK 7;" "> INK in 
ue W-:AT x+1,y-2;" " 
LET ‘pte=pt+l: ‘PRINT #1;AT 1,31- 
LEN STR$ pt; PAPER 7; INK 0; 
BREGHT"W,:" NU ape: TFper=sv 
THEN BEEP..01,20:° BEEP «401,30: 
BEEP .01,40: LET v=v*2: LET l=1l 
(49) PRIENT RISATE 
PAPER 7; INK 0; BRIGHT l1;l 
GO TO 1960 
PRINT OVER 1; INK in2; PAPER 8; 
AT ye e CENRO et SS TNK- an 
DIST U;AT x+1,y-2;" " 
LET pt=pt+1: PRINT #1;AT 1,31- 
LEN STR$ pt; PAPER 7; INK 0; 
BRIEGART lp" dl npti "IE pe>=v 
THEN BEEP .01,20: BEEP .01,30: 
BEEP. CON, 40 CLETEv=v*2 GET = 
+:(IS9)2 SPRINTERCSATAI, 195 
PAPER 7; INK 0; BRIGHT l;l 
LET ct=ct+ip: IF ct>=21 THEN 
GO TO 2820 
PRINT AT x,y; INK 7; PAPER Lr Sa 
REM 
mossa pallina 
IF xx>0 THEN GO TO 2100 
LET r=INT (RND*(3+(20-11*(11<20) 
))te TE E>0 THEN .G0. TO. 15:10 
LET xx=15: LET yy=16 
LET £$=" CG AE CG AE JI" 
IF y=16 AND x<T5 THEN LET £$(x+ 
beta 
FOR i=0 T0 15 ner asAtTR‘(i,16) 


PRINT AT i,16; INK 1; PAPER 8;"J 
" 


BEEP .001,i+15 

PRINT AT i,16;£$(i+1):: POKE FNa 
(i,16),a 

NEXT 1: PRINT AR 15.16; INK 1; 


PAPER 8;"J" 
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2090 
2100 


2110 


2120 


2121 


2022 


223 


2124 


2125 


2130 


21:31 


21:32 


21033 


2134 


2135 
2140 


2141 


2142 


BEEP .01, 
PRINT AT 
JI i 


Tea GO TO dl5L0 


XX,YY; INK 1; PAPER 8;" 


LET r=INT (RND*(4+11-((11-20)*(1 


1520)))092: 
PRINT AT 
CU-BPORE 
+1): LET 
p INK. 1; 
PRINT AT 
POKE EN 


î LET xx= 


EN gle 
PRINT AT 
E": POKE 
+1): LET 
SONENRA 
PRINT AT 
A": POKE 
+1): LET 


PRINT AT XxXx,yY; 


NI" 
PRINT AT 
POKE EN 


î LET xx= 
PRINT AT 


Lea 


GO TO 2110+r*10 

XX,YyY; INK 8; PAPER 8;" 
FN a(xx,yy) ,ATTR (xx,yy 
xx=xX-l: PRINT AT xx,yy 
PAPER 8;"JI" È 
xXX,YY; PAPER 8;" ": 
a(xXx,YyY) ATTR (xx,yy+1) 
xx-l: PRINT AT xx,yY; 


PAPER 8;"J" 


xX,yYy; INK 8; PAPER 8;" 
FN a(xx,yyY),ATTR (xx,yy 
xx=xXXx-l: PRINT AT xx,yy 
PAPER 8;"J" : 

XX,yY; INK 8; PAPER 8;" 
EN a(xx,yY) ATTR (xx,yy 
XX=XX-l: LET yy=yy-l: 

INK 1; PAPER 8; 


XX ,VY.; (PAPER 8". ": 

a(xXX,YY) ,ATTR (xx,yy-1) 
xXX+1: LET yy=yy-1l: 
XX,YyY; INK 1; PAPER 8; 


GO TO 2400 


PRINT AT 
C": POKE 
+19): (CET 
MUNE; 
PRINT AT 
POKE FN 


® LET xx= 


INK 1; 
PRINT AT 
E": POKE 
+1): LET 
pCINRe les 
PRINT AT 
Al POKE 
+1): LET 


PRINT AT xx,YY} 


LE pil) 
PR'NT AT 
PC E EN 


«8 LET xx=xx+1: 
PRINT AT Xxx,yY; 


Magie 


XX,YY; INK 8; PAPER 8;" 
EN a(xx,yY) ATTR (xx,yyY 
xx=xx-l: PRINT AT xx,yy 
PAPER 8;"JI" 

XX,YY; PAPER 8;" ": 
a(XX,YY),ATTR (xx,yy+1) 
xx-1: PRINT AT xx,yY; 


PAPER 8;"J" 


xXX,yY; INK 8; PAPER 8;" 
FN a(xx,yy) ,ATTR (xx,yy 
xx=xx-l: PRINT AT xx,yy 
PAPER 8;"JI" 

XX,YY; INK 8; PAPER 8;" 
FN a(xx,yY) ,ATTR (xx,yy 
XX=XX-l: LET yy=yy+l: 
INK 1; PAPER 8; 


XX,YY; PAPER 8;"": 
a(XX,yYYy) sATTR (xx,yy-1) 
LET yy=yy+1: 
INK 1; PAPER 8; 


GO TO 2400 


PRINT AT 
C": POKE 
+1) :. LET 


PRINT AT xXx,yY; 


ug 
PRINT AT 
POKE EN 


® LET xx= 
PRINT AT xx,yY}; 


Mg 
PRINT AT 
A": POKE 
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XX,YyY; INK 8; PAPER 8;" 
FN a(xx,yy) ,ATTR (xX,yy 
xx=XX-l: LET yy=yy-l: 

INK 1; PAPER 8; 


XXYVshPAPERI Seli dl: 
a(XX,YyY) ,ATTR (xx,yy-1) 
xXX+1l1: LET yy=yy-l: 
INK 1; PAPER 8; 


XX,YY; INK 8; PAPER 8;" 
FN a(xx,yy) ATTR (xx,yyY 


2143 


2144 


2145 
250 


2151 


2052 


253 


2154 


2155 
2360 


2370 


2380 
2390 
2400 


2410 
2420 
2430 
2440 
2450 
2460 
2470 


2480 


+1) FEET 
ASINEMNIO; 
PRINT AT 
E": POKE 
+1): LET 
PNINKOLbS 


xx=Xx+1: PRINT AT xX,yy 

PAPER 8;"J" 

XX,YY; INK 8; PAPER 8;" 
FN a(xx,yY) ATTR (xx,yy 

Xx=Xxx+1]: PRINT AT xXx,yy 

PAPER #85!" 

PRINT AT xx,yy; PAPER 8;" ": 
POKE FN a(xx,yy) ,ATTR (xx,yy+1) 
: LET xx=xx+1: PRINT AT xX,yY; 
INK 1; PAPER 8;"3" 


GO TO 2400 
PRINT AT xX,yy; INK in; PAPER 8; 
"Cc": POKE FN a(xx,yy) ATTR (xx,y 


y+1): LET xx=xx-l: LET yy=yy+l: 
PRINT AT xx,yy; INK 1; PAPER 8; 
DI I 
PRINT AT xx,yY; PAPER 8;" ": 
POKE FN a(xx,yy) ,ATTR (xx,yy-1) 
3 LET xx=xx+l:: LET yy=yy+!1: 
PRINT AT xx,yy; INK 1; PAPER 8; 
LF fili 
PRINT AT 
A": POKE 
+1): LET 
o ENRI eli 
PRINT AT 
E": POKE 
+1): LET 


XX,YY; INK 8; PAPER 8;" 

FN a(xx,yy) ,ATTR (xx,yy 

XX=XX+1: PRINT AT xx,yy 

PAPER 8;"J3I" 

xX,YY; INK 8; PAPER 8;" 

FN a(xX,yy) ,ATTR (xx,yy 

XX=XX+1: PRINT AT xx,yy 
pr INK PAPERS 8:51!" JE 

PRINT AT xx,yy; PAPER 8;" ": 
POKE FN a(xx,yy) ,ATTR (xx,yy+1) 
: LET xx=xx+1: PRINT AT xX,yY; 
INK 1; PAPER 8;"JI" 

GO TO 2400 È: 

IF x<xx AND y<yy THEN GO TO 212 

0 Si 

IF x<xx THEN GO TO 2130 


IF y<yy THEN GO TO 2140 
GO TO 2150 


IF ATTR (xx+1,yy)=71 THEN FOR i 
=L.UIO5: PRINTOAT.xX,YY; INK 1; 
BRIGHT. lissSli: BEEP -,2,60:.LEF PP 


T=PT+2: PRINT #1;AT 1,31-LEN 
STR$ PT; INK 0; PAPER 7; 

BRIGHPR eta" Dee NEXDNL: 

PRINT AT xx,yY; INK 7; BRIGHT 1 
e Be LEI xx=0° LET yw=0: 

GO TO 1510 
BEEPC01, 152 FE GXX> LL CORSATTRO (E 
x+1,yy)=0 THEN GO TO 2470 

IF xx=x AND yy=y THEN GO TO 288 
0 

IF ATTR (xx+1,yy)=att THEN 

GO TO 1510 

IF ATTR (xx+1,yy)=attl THEN 

LET ct=ct+.5 

PRINT OVER 1; INK in; PAPER 8; 
ATL Xe se FINE, biso nntto 

ENK Tae RAT RK, yy sv 
LET ct=ct=ls*"G0 TO. J5iLo 

REM 

morte pallina 

PRINT AT xx,yY; PAPER 8;"C": 


2490 
2500 


2510 


2520 


2530 


2540 
2550 
2560 


2570 


2575 
2580 
2590 


2600 


2610 


2620 
2630 
2640 
2650 


2660 


2670 


2680 
2690 


2695 


2700 
2710 


2720. 


IF ATTR (xx+1,yy)=0 THEN LET x 
x=xXx+1: PRINT AT xx,yy; INK 1;"J 
": BEEP .006,28: GO TO 2480 "E 
LET xx=0: LET yy=0: GO TO 1510 
REM 

fine della partita 
LET s=1: PRINT #1;AT 1,19; INK O0 
s PAPER 7; BRIGHT 1;"0" 
IF pt>rec THEN: LET rec=pt: 

POKE USR "u",INT (pt/256): 

POKE USR "u"+1,pt-256*INT (pt/2 
56): GO TO 2600 
PRINT AT 4,0; INK-7/; BRIGHT 1; "I 
L RECORD"'"APPARTIENE A"' 

PAPER 4;r$ 
PRINT AT 4,22; INK 7; BRIGHT l;". 
CON "> recsAT' 5,23: PUNDIS 


FOR i=0 TO 7: FOR j=0 TO 7: IF i 
=j THEN GO TO 2580 
PRINT AT 0,10; INK j; PAPER i;" 


GAME | OVER " 
IF INKEY$="g" OR INKEY$="G" 

THEN BEEP .05,40: BEEP .05,37: 

CLS (: GO TO 1210 
IF INKEY$="s" OR INKEY$="S" 

THEN LET s=NOT s: BEEP .2,-38 
BEEP .008*s,i*5+j-20: NEXT j 
PRINT INK 9; PAPER 8; OVER 1; 
AT 17,6;"PREMI KL PER GIOCARE": 

NEXT i: Go TO 2550 
PRINT AT 0,10; PAPER 5;" GAME O 
VER ";AT 4,1]; INK 7; PAPER 0; 

BRIGHT l's'HAIvFATTONSATR 5 le Li 

RECORD" 


PRINT AT 4,22; INK 7; BRIGHT l;" 
INSERISCI";AT 5,21; "IL TUO NOME" 
;AT 6,21; PAPER 4; BRIGHT 0;" 

ULI 


LET r$="": LET A=0: PRINT AT 6,2 
1; INK 7; PAPER 8;"I";CHR$ 8; 
LET 1$=INKEY$: IF 1$="" THEN 

GO TO 2630 

IF 1$=CHR$ 13 THEN PRINT 
PAPER./8;s" ": GOITO: 2695 


IF 1$=CHR$ 12 AND a<1 THEN 
GO TO 2630 
IF 1$=CHRS 12 THEN BEEP 305708 
PRINT INK 7; PAPER 8;CHR$ Bo" 
";CHR$ 8;CHR$ 8;: LET a=a-l: 
LET r$=r$( TO a): GO TO 2680 
BEEP .05,18: PRINT PAPER 4;L$;: 
LET a=a+l1: LET r$=r$+1$ 
IF INKEY$=1$ THEN GO TO 2680 
IF a<ll THEN PRINT PAPER 8; 
INK 7;"I";CHR$ 8;: GO TO 2630 
LET t$=r$+c$+" ": FOR i=l TO 1l: 
POKE USR "u"+i+1,CODE t$(i): 
NEXT i 
GO TO 2550 
REM 
volo stelle magiche 
LET pt=pt-l1l*11l: PRINTEEISAT 1,3 
1-LEN STR$ pt; INK 0; PAPER TR 


2730 
2740 


2750 
2760 


2770 
2780 
2790 
2800 


2810 
2820 


2830 


2840 


2850 


2860 
2870 


2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 


2990 


BRIGHT 1;" ";pt 
LET a=y: LET b=a: LET sg=-l: 
IF y<16 ‘'THEN LET sg=-sSg 


PRINT AT 16,a-2;" 
PILLI " 

LA 

FOR i=1l TO 14 

LET a=a+VAL g$(i)*sg: LET b=b+ 
VAL g$(i+1)*sg 
PRINT AT 17-i,a;" 


";AT 15,a-2 


UrAT.]6-1,b; 


INK VS 

NEXT i 

PRINT AT 2,14;" “ 

LET x=3: LET y=16: PRINT AT x,Y; 
INK 7; PAPER 8;"I" 

GO TO 1860 

REM 


livello successivo 
LET pt=pt+11*3: IF pt>=v THEN 
LET 1=1+(1<9): LET v=v*2: . 
BEEP .01,20: BEEP .01,30: 
BEEP .01,40: PRINT #1;AT 1,19; 
INK 0; PAPER 7; BRIGHT }l;1 
PRINT #1;AT 1,31-LEN STR$ pt; 


INK 0; PAPER 7; BRIGHT 1l;" ";pt 
PRINT INK 9; PAPER IN2;AT 0,0;" 
COMPLETATO" '"LIVELLO —";AT 1,8; 
LE PRONUS: LI) PUNTI"; 
ATS37 0 Ll*3 
LET 11=11+1: LET ct=0 
FOR i=1! TO 20: BEEP .01,1: 

NEXT i: GO TO 1270 
REM 


Mie ta De DAI 
; "Cna" 
IF x=xx AND y=yy THEN PRINT 
AT x,y; INK.7; PAPER 8;"M": 
GO TO 3000 
FOR i=x+1 TO 21 
IF ATTR (x,y)=7 THEN PRINT AT x 


PRA, " 

LET x=i: BEEP .003,i+22: IF 

ATTR (x,y)=0 THEN PRINT AT x,Y; 
INK TE" 

NEXT i 

IF ATTR (x,y)=7 THEN PRINT AT x 
PRAIRI ULI 

PRINT. #1;AT:0,y;. INK\7;"I": 

BEEP .003,44 È 


PRINTI#l'PATIORY lo "SAT Hug; 
INK 7;"M": BEEP .003,45 

REM "hi 

_fumetto 

LET y=INT ((y+2)/4)*4 


SUPERSINC® 8/85 - 41 


3000 


: 30.0 


3020 


3030 


3040 


3050 


3060 
3070 
3080 


3090 
3100 


3110 
3120 
3130 


3140 
3150 


3160 


3170 


3180 


3190 
395 


3200 


3200 


3220 


3230 


LET a=ATTR (x-3,y): LET b=ATTR ( 
x-3,y+3): LET c=ATTR (x-2,y): 
LET: d=ATTR (x-2,y+3): LET e= 

EN a(x-3,y) 

PRINT AT x-4,y; INK 7; PAPER 8;" 

N{2SG3}O";AT x-3,y; INK 0; 
PAPER" St IAT 2,y; E; 


AT x-1,y; INK 7; PAPER 8;"PQ 0" 
{G3}R" si 

FOR i=1 TO 30: BEEP RND/10,RND*i 
-20: NEXT i 


PRINT AT x-4,y; PAPER 8; INK 7;" 
UFAT x-3ry;ABCD!;AT x-2,y;" 

EEGH"::;AT x-l,vy;U is. PORE: ea 
POKE e+l1,a: POKE e+2,b: POKE e+ 
3,b: POKE e+32,c: POKE e+33,c: 
POKE e+34,d: POKE e+35,d 

IF b=71 THEN PRINT INK 7; 
BRIGHT 1;AT x-3,y+1;"CB";AT X-2 
rY+1 s GE" 

PRINT AT xx,yy; PAPER 8;"C": 
POKE FN a(xx,yy),ATTR (xx,yy+1) 


IF x<>xx AND y<>yy THEN 


LET x=9: LET y=16 
PRINT AT xx,yyY; INK 8; PAPER 8;" 
C": LET xx=0: LET yy=0 


LET 1=1-1: IF l1>0 THEN GO TO 14 
90 
GO TO 2500 
REM POR 

Istruzioni hà 
PAPER 5: INK 0: BORDER 3: CLS 
PRINT INK/s BRIGHP alte 
LET as$=" Questo e" R*bert,.il sa 
ltatore": GO SUB 3340 
PRINT. INK 1%"; 
LET a$=" e questa e' la pallina 


nemica.": GO SUB 3340 

LET a$="Il gioco consiste nel sa 
ltellaresui cubi (facendo così' 

cambiare": GO SUB 3340 

LET a$="il loro colore) evitando 
di far-si raggiungere dalla pal 
lina.": GO SUB 3340 

LET a$=" Loschema e' completo q 
uando tuttii cubi avranno lo ste 
sso colore.":. GO SUB 3340 

PRINT TAB 5;: LET a$="I tasti da 
usare sono:": GO SUB 3340 


PRINT AT 12,16; INK 7; BRIGHT 1; 
up” 

PLOT 123,84: DRAW -11,11: DRAW 09 
7-5: DRAW 0,5: DRAW 5,0: BEEP .0 
1,52 

PLOT 140,84: DRAW 11,11: DRAWO0, 
-5: DRAW 0,5: DRAW -5,0: BEEP .0 
1,50 

PLOT 123,67: DRAW -11,-11: 

DRAW 0,5: DRAW 0,-5: DRAW 5,0: 
BEEP .01,52 


PLOT 140,67: DRAW 11,-11: DRAW 0 
15: DRAW 0,-5: DRAW -5,0: BEEP . 
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3240 
3:250 


3260 


3270 


3280 


3290 


3300 


3310 


3320 


3380 


3340 


3350 


5000 


01,52 
INK 2: 
allea Ne 
PRINT AT 10,21;: LET a$="da 7 a 
0": GO SUB 3340 
PRINT AT b4,350 


PRINDATL10,4 5 
GO SUB 3340 


LET a$="d 


LET a$="da CAPS 
GO..SUB_3340.: PRINT AT_15,6; 
® LET a$="a V": GO SUB 3340 
PRINT AT 14,225: LET a$="da B": 

GO SUB 3340: PRINT AT 15,22;: 

LET a$="a SPACE": GO SUB 3340 
INR 0: PRINT Ve LET as="ll tagst 
o P da' una pausa duranteil gioc 
o, mentre durante il ": GO SUB 3 
340 
LET a$="GAMEOVER col tasto S si 
puo'sceglie-re tra suono e silen 
ZIO tRNGO SUR 8340, 

INK 2: PRINT : LET a$="*Buon div 
ertimento da R. Corona*": 

GO SUB 3340 
PRINT #1;AT 0,0; 
" " 5; PAPER 5E " 

GIOCARE n 
IF INKEY$<>"g" AND INKEYS<>" 
G" THEN GO TO 3320 


Sha 


PAPER 3;TAB 31; 
PREMI KL PER 


BEEP .-05;40:°BEEP".:05)37: 
PAPRERNO: L'INKEO: GBORDER 0 CLS : 
GO TO 1180 


EORMi=} ‘Ro-EENGas: PRINT UISCE)! 


sCHR$ 8;: BEEP .001,17: PRINT ag 
(1); ONEXT»i: RETURN 
CLEAR : SAVE "R*bert" LINE 1000 
REM 

Programma creato da Rob 


erto Corona (055) 262388 


di Giorgio Simonetti 


SUPERSINC vi propone uno dei 
più tradizionali giochi su scac- 
chiera 


I gioco del Reversi andava di moda 
nel ’700 ed ’800, soprattutto in In- 
ghilterra. E stato chiamato in vari modi, 
di cui il più famoso è appunto Reversi. 
Il nome deriva dal fatto che le pedine 
avevano le due facce di colore diverso 
e quando una di esse veniva mangiata 
bastava capovolgerla. Scopo del gioco 
è impadronirsi di un numero maggiore 
di caselle della schacchiera rispetto al 
nostro avversario. 

Ci si impadronisce di una casella depo- 
nendovi sopra una propria pedina. Cia- 
scun giocatore è contraddistinto da un 
colore, bianco o magenta; inizia il bian- 
co, si muove a turno in caselle vuote e 
le prime quattro mosse vanno fatte ne- 
cessariamente nelle quattro caselle cen- 
trali (28,29,36,37), dopo di che valgono 
le seguenti regole: 

1) si depone una pedina alla volta e ad 
ogni mossa bisogna catturare almeno 
una casella avversaria; 

2) le caselle avversarie sono catturate 
se vengono a trovarsi allineate, in oriz- 
zontale, verticale o diagonale, con l’ulti- 
ma pedina deposta ed una precedente- 
mente giocata, senza alcuna casella 
vuota in mezzo; 

3) le caselle catturate subiscono il “la- 
vaggio del cervello” e assumono il no- 
stro colore; 

4) il gioco finisce quando uno dei due 
giocatori non può più muovere; 

5) vince chi alla fine del gioco possiede 
più caselle. 

Dopo il messaggio di stop al registrato- 
re si possono leggere le istruzioni o gio- 
care direttamente. Due sono le opzioni: 
due giocatori, con il computer che ese- 
gue i controlli e gli spostamenti, oppure 


9 5 
23 = = 
i î 
= = | 

S S 


Ì 


| Descrizione del programma 


Linee 


1 


2-10 
12-18 


28-70 
140-184 
186-190 
195 
205-210 
335-345 


Commento 

contiene inizialmente una REM con 40 asterischi, dove il 
computer pone i risultati delle routine in 1/m. Per questo 
può aversi il caso che, dopo il RUN, con LIST non appaia 
che la linea 1; per vedere il resto occorre digitare diretta- 
mente LIST numero di linea. Può anche accadere che, una 
volta dato un BREAK, il programma non riparta più 
istruzioni: m$ contiene la pagina in stampa 

preliminari e scelta dell’avversario (se zx=1, si gioca contro 
il computer) 

disegno scacchiera 

accettazione e controlli sulla mossa; m$ contiene la mossa 
usate in caso di errore (se ok=2) 

subroutine per le coordinate di stampa (x e y) 

stampano sul video la mossa tramite x e y 

cambiano il colore di gioco e aggiornano le variabili: co= 
colore in gioco, mo= numero della mossa, t= caselle magen- 
ta 
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un giocatore contro il computer. Lo 
Spectrum provvede a controllare se le 
mosse sono corrette e chi vince alla fine 
del gioco. La mossa si esegue digitando 
il numero della casella che si vuole oc- 
cupare, seguito da ENTER che rende 
operativa la mossa. Premendo SPACE 
prima di ENTER si ha la possibilità di 
cancellare il numero impostato. Il pro- 
gramma fa uso di alcune routine in lin- 
guaggio macchina, che sono collocate 
nel buffer della stampante. L’area di 
comunicazione fra il codice macchina e 
il BASIC è contenuta nella REM della 
prima linea del programma, che non 
va tolta né editata. 

Così com'è, il gioco funziona sul 48K; 
chi possiede il 16K dovrà digitare il pro- 
gramma, tralasciando le linee relative 
alle istruzioni. 


Note per la digitazione 

Prima di tutto battere il listato BASIC 
e registrarlo su nastro con SAVE “RE- 
VERSI” LINE 9000, verificare e dare 
. NEW+ENTER. 

Inserire poi il programma “1/m”, stando 
molto attenti a non sbagliare (soprattut- 
to in fase di inserimento dei codici esa- 
decimali). Dare allora RUN e, quando 
richiesto, registrare il programma di se- 
guito al BASIC. In questo modo il cari- 
camento del linguaggio macchina sarà 
automatico e il programma partirà da 
solo. Buon Reversi!!! 


Reversi 


410 
3010-3025 


5500 


6010-6065 


6100 
8000-8010 


23296 


prime due mosse del computer 
messaggio di fine gioco e stampa del vincitore 


cambia il colore di gioco 


richiamo per le routine in 1/m per il controllo di: correttezza 


della mossa, caselle da mangiare, eventuale mossa del com- 


puter 
controllo di fine gioco; il gioco finisce se PEEK 2345464 
routine di stampa delle istruzioni 


ld a,64 

ld hl,23472 
ld (23549),a 
inc hl 

ld a,l 

cp 241 

ret z 
ld(23342),hl 
call 23340 
ld hl,23761 
Id a,100 

ld bc,65 


cpir 

ld a,(23549) 
push ix 

pop hl 


cp c 

jr c,23304 
ld a,c 
ld(23547),hl 
jr 23301 

ld ix,23536 
ld hl,23761 
xor a 
cpl(ix+0) 

jr nz,23381 
ld bc,23789 
ld a,(bc) 
ld(23364),a 
ld a,3 
cplix+9) 

jr nz,23376 


Disassemblato del codice macchina 


ld a,(bc) 
call 23426 
and a 

Id a,(bc) 
call nz,23384 
inc bc 

ld a,(bc) 
anda 

jr nz,23356 
Id(hl),100 
ret 


inc d 
Id(hl),e 
inc hl 


ld e,a 
1d(23400),a 
ld'a;3;4 
cplix-18) 

jr nz,23412 
ld a,e 

call. 23426 ! 
and a \ 
jr z,23421 
jr 23387 


ld a,e 
1d(23419),a 
xor a 
cp(ix-18) 


ret nz 


dec hl 
dec d 
jr nz,23421 


ld la 

ld a,(23342) 
sub 176 
add a,l 

ld l,a 

xor a 

inc a 


cp | 

jr 2,23453 
add a,7 
cp | 
jr z,23453 


PLOT 


220,25: DRAW 30,125: 
DRAW -8,23,1.3: DRAW -220,0 
6 PRINT AT 2,9; INVERSE 1; "REVERSI 


versione per ZX Spectrum 48K 
programma principale 


MS RRRTI TITTI TT TIZI TI TIT IATA TAI 
VETERE EEE SO 


ZURLASHI la CLS. FOR v= 9 TONC18 
STEP 2: PRINT AT v,3; BRIGHT 1; 
"FERMA IL REGISTRATORE !!!": 

FOR m=0 TO 40 STEP 2: BEEP v*m/ 
10000,m: NEXT m: NEXT v 

3*EHASHO: PRINT'#O AT PD; 05! 

TI G=GNOC0 VI =IStrUuziOoNni.o "= 
PAUSE 0: GO TO 3+(INKEYS="1i")+8 
*(INKEY$="g") 

4 PAPER 6: BORDER 6: 
n 5005 FDRAW €30,00: BEOT (30,160 
DRAW -10,0: DRAW 0,-10,-PI: 
DRAW 10/0), 5 DRAW .225/-=145;: 
DRAW 10,10,5: DRAW 0,-10,PI: 
DRAW 11,0 

5 PLOT 20,2: DRAW 210,0: 
5: DRAW 210,0: 


PREM 


CLS: PLOT#25 


PLOT 20,2 
DRAW 0,-23,-2: 
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10 
12 


3 
14 


259 
30 


": LET m$="Il REVERSI e' un gioc 
o dascacchiera per due gioca-tor 
i. Regole del gioco: {SG3}Le pr 
ime 4 mosse si fan-no solo nelle 
4 caselle centrali (28,29,36,3 
7). {SG3}Si muove a turno solo 
incaselle libere ed alla condi 
zione di allinearsi (anche per d 
iagonale) conuna propria pedina 
ed in mezzo una o piu' pedine 
avversarie senza nessunacasella 
vuota interposta " 

GO SUB 8000: LET m$="{SG3}Le cas 
elle avversarie che al momento 
della mos-sa si trovano fra le 
due amiche cambiano di coloree s 
ono quindi catturate. {SG3}Il gi 
oco finisce quando tutta la scac 
chiera e'oc-cupata o quando uno 
dei due giocatori non ha piu'mo 
sse possibili. {SG3}Vinc 
e chi alla fine del gioco ha piu 
' pedine del proprio colore in c 


ampo. " 
GO SUB 8000: LET m$="COME SI GIO 
CA {SG3}Le caselle 


della scac-chiera sono numerate 

da la 64, si muove battendo il 

numero della casella che si vuo 
le occupare se-guito da ENTER, i 
1 compu-ter controlla se la moss 
a e' corretta ed esegue i necess 
ari spostamenti. {SG3}Per corr 
eggere premere SPACE prima di E 
NTER. {SG3}I colori sono bian 
co e magenta,inizia il bianco." 


GO SUB 8000 

INPUT ;: PRINT AT 6,0; INVERSE 1 
viagra PREMI: ip zieade. 
Due giocatori 

Tu contro il Computer 
PAUSE 0: LET i$= 
AND i$<>" 


0 
FOTSOSICIALINIO 
ris mes 
INKEYS: IF DST 
1" THEN GO TO 12 
LET Zx=VAL i$ 
PAPER 7: LET t=0: LET ok=t: 
LETm=t GLUS. es cb co=INT PI: 
LET mo=t: POKE 23624,56: 
TNPUT: 1" FOR veda TO, MPORE 
USR "a"+v,128: NEXT Vv 
LET mS="-9-8-7-1+1+7+8+9+0": 
FOR v=1 TO 9: POKE 23788+v, 
VAL mS(2*ve1b6FO 02 EV) NEXIOV 


FOR v=VAL "23463" TO VAL 235450 
È‘ PORESvI NOT SENTI NEXTATV 
FOR'm=l TO 27. STEP 3: BEEP .03,m 
230% “EORTv=0' “TO. 2: PRINTCAT. Vem 
AU: ANBXT- vi: PRINT #0;AT O,m;"A 
MEA Lada NEXT 

PLOT 8,175: DRAW 192,0 


FOR v=2 TO 21 STEP 3: BEEP .01,v 
: PRINT OVER 1;AT v,l;" 


50 


65 


70 


140 
145 


146 


150 


DS 


160 


166 
174 


075 


176 


MZ 


180 


-G0 SUB 6000: 


, US ONBEROVE 
PRINT #0; OVER 1;AT ERE 
" 


FOR m=1 TO 24 STEP 3: FOR v=1 

TO 24 STEP 3: BEEP .0005*v,10+v 
+m: PRINT OVER ];AT m-1,v;(v+2) 
/3+(m+2)/3*8-8: NEXT v: NEXT m 
PRINT AT 0,0;: FOR v=1 TO 22: 


PRINT INVERSE 1l;" GIOCO DEL * 
REVERSI * MV) NBEXTOVE 

PRINT #0; INVERSE 1;AT 0,0;" "; 
AT TRE (Oa " 
BORDER 1: PRINT AT 12,26;"TU ZX 


".( <TO=6*.(izx=1b) ep ATI 3:92.65 
BRIGHT..l; PAPER.7;".";AT 13,30; 
PAPER 3;" ": PLOT 204,44: 

DRAW 0,-44: DRAW 48,0: DRAW 0,4 
4: DRAW -48,0: PRINT AT 4,26; "GI 
OCA":AT: 7,26: "MOSSA"ZAT:9:, 2:60, UNU 
> @GPRCLE 220 7103,52 


GO SUB 300 

IF zx=0 OR co=3 THEN PRINT AT | 
Me2604 VISATA20N260" U 

IF INKEY$=" " THEN PRINT AT 17, 
26 AP 920/726" si 


LET i$=INKEY$: IF i$>"9" OR i$<" 
MOIS) EDO SES) 


) THEN. LET m$="": GO TO 145 
LET m$=m$+i$: IF VAL mS$>64 
THEN. LET m$="": GO TO: 145 


PRINDIAP20,2605"0K 2! >/AT1477,2650 
S+" ": BEEP .005,40: PAUSE l: 
PAUSE 0: IF INKEY$=CHR$ 13 

THEN ' PRINT AT -20,26;" Mata 

GO TO 170 

GO TO 146 

iù M$= Ue UPHENI CET" co=3' GOLTO! 
0 : 

LET m=VAL m$: GO SUB 195: 
=mo+l: IF (mo<5 AND m<>28 
AND m<>29 AND m<>36 AND m 
<> 37) THEN. <ECET"ok=2"= ‘60° SUB] 
86: GO TO 150 

IF mo>4 AND y<24 THEN PRINT 
AT. y-2,x-l1; FLASH 1; BRIGHT 1;" 
{SG8}": PAUSE 5+(zx=1 AND co=3)* 
5 

IF mo>4 AND y=24 THEN PRINT #0; 
AT 07X=t— FLASH “BREGHT. Us! 
{SG8}": PAUSE 5+(zx=1 AND co=3)* 
5 

IF mo<5 AND PEEK (23472+m)=0 
THEN LET t=t+(mo=2 OR mo=4): 
GO SUB 200: POKE 23472+m,co: 

GO SUB 400: GO TO 140 
GO TO (140+10*(0k=2 
))*(zx=0 OR co=7)+174*(zx=1 


LET mo 


AND co=3) 
IF 0k=2 THEN PRINT AT 20,26; 
FLASH 1; INK 9; PAPER 2; 


BRIGHISS: "NONA a 2/9 We 
FOR: V=0° TO —20=STEP 1: BEEP +0 
06,v: NEXT v: PAUSE 0: LET mo=mo 
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189 


190 
195 


205 
206 


207 


210 


335 


340 


345 
400 
410 


3010 


3012 


3:05 


3020 


3025 
5500 
6010 


-l: PRINT AT 20726000 IAAD 175 
29;" ": GO SUB 188: IF zx=0 
THEN RETURN 

LET co=3: GO TO 135 


IF mo>=4 AND y<24 THEN PRINT 

AT y-2,x-1; PAPER (PEEK (23472+m 
))+7* (PEEK (23472++m)=0); 

BRIGHT (PEEK (23472+m)<>0);" 

": RETURN 

IF mo>=4 THEN PRINT #0; 
PEEK (23472+m))+7* (PEEK 
)=0); BRIGHT (PEEK 
20) ATEO lito 
RETURN 
LET y=3*INT ((m+7)/8): LET x=3*( 
m-8*(y/3-1)): RETURN 

PAUSE 10: POKE 23472+m,co 
LET y=3*INT ((m+7)/8): LET x=3*( 
m-8*(y/3-1)) 
PRINT OVER 1; BRIGHT tpAT y-3y,X 
-2; PAPER co;" VIE snvs24 

THEN PRINT OVER l; BRIGHT dis 


PAPER ( 
(23472+m 
(23472+m) 


AT y-2,x-2; PAPER co;" WrATIyo 
1,x-2;" ": RETURN 

PRINT #0; INK 0; PAPER CO} 
BRIGHT AT: b0,x 20h MAT px 
2;"A ": RETURN 7) 

BEEP .005,30: PRINT AT 147205" 
";AT 14,26;mo-t;AT 14,30;" Vie 

AT 14,30;t: GO SUB 5500: LET m$= 
LLLLI 

FOR. v=:l GTO. »3;: PRINT AT v,27; 


INK co; BRIGHT 1;"{3SG8}": 
NEXT v: PRINT AT 9,29;mo 
RETURN 


IF zx=0 THEN RETURN 
LET mo=mo+1l: LET co=3: LET t=t+1 
LET m=m+(m=28 OR m=36)-(m=37 
OR m=29): PRINT AT 17,26;m;AT 2 
0},:2/0/2 TINVERSETSIGarE Axy Moac 
GO SUB 200: RETURN 
GO SUB 300: FLASH 1: IF t<>mo- 
t THEN x PRINT ATI 0,25: OVER 1 
UtSAT. l025;"!"+"VINCEPERDE” 
(IPER (Mot) TO: (b+5* ({>(imo-t) 
AI SAT DI ib al IL: "AT 3,25 
AlTBIANCO: AT 47:25 Ve OVER 0); 


la7,2/05""G 
3,26;" 
' 


IF t=mo-t THEN PRINT AT 
TOCOIRATLI 22/6! "UA 
PARI";AT 4,26; FLASH 0;" 
BRIGHT 0: FOR v=10 TO 20 
5: BORDER v-10-3*(v>17): BEEP v/ 
50/067: INEX Dov «BRINTVAT 1157 26; 
PREMI"pAT /1l-:8,26;" C Us AT 19,26 
pPER'pAT:207,26 RUN i: 


STEP .0 


FLASH 0: PAUSE 0 
FLASH 0: IF INKEYS="c" THEN 
GO TO 11 
GO TO 3020 
LET co=c0+4-8*(co=7): RETURN 


POKE 23361,c0+4-8*(co=7): POKE 2 


3397,PEEK 23361 
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6020 


6030 


6035 
6040 
6050 


6060 
6065 


6100 


6110 
8000 


8010 


9000 


POKE 23342,176+m: RANDOMIZE 
USR 23340: FOR v=23761 TO 23791: 
IF PEEK v=100 THEN LET 0k=2*(v 
=23:761) LET. v=23792::- NEXT..ve 

GO TO 6040 

LET m=VAL m$-256*(PEEK v>100)+ 
PEEK v: GO SUB 195: GO SUB 200 
LET t=t+(co0=3)-(co=7): NEXT v 

IF 0k=2 THEN GO TO 186 
LET m=VAL m$: LET y=3*INT ((m+7) 
/8): GO SUB 195:. GO SUB 188: 

GO SUB 200: LET t=t+(co=3): 

GO SUB 6100: IF zx=0 OR co=3 
THEN LET m$="":. RETURN 
GO SUB 300 

POKE 23361,c0+t4-8*(co=7): POKE 2 
3397,PEEK 23361: RANDOMIZE USR 2 


3296: LET m$=STR$ (PEEK 23547-17 
6): PRINT AT 17,26;m$+" "EAT, 2 
0,26: INVERSE. d.p!! zx le RETURN 


POKE 23361,co: POKE 23397,PEEK 2 
3361: RANDOMIZE USR 23296: IF 
PEEK 23549=64 THEN GO TO 3000 
RETURN 


PRINTAT14,,5 în FOR:\:v=i LIO LEN ms 
: PRINT m$(v);: BEEP (m$(v)<>" 
14) E0:- 00/575 DESINT: «(7 /25)i=v/25 


THEN PRINT AT 4+INT (v/25),5- 
INT (v/100);: IF v=LEN m$ THEN 
PRINT #0;"PREMI UN TASTO PER CO 


NTINUARE": PAUSE 0: INPUT ; 
NEXD vis VLiB” m$="!"=«FOR4tv=5 TO 2 
STEP -1: FOR m=1 TO 4-(v=2)*2: 
PRINT: AT -:3+m+4*(5-v),v;" 
e NEXT ume 
NEXT v: RETURN 
LOAD ""CODE : RUN 


Revers I/m 
versione per ZX Spectrum 16K/ 


48K 


10 


20 


READ m$: LET n=23296: FOR v=1 

TO LEN m$ STEP 2: LET a=16*( 
CODE m$(v)-48-7* (CODE m$(v)»> 

VAL ."9"))+(CODE m$(v+1)-48-7*( 
CODE m$(v+1)>VAL "9")): POKE n,a 
î LET n=n+1: NEXT v: SAVE "I]lm" 
CODE 23296,170: VERIFY ""CODE 
DATA "3E4021B05B32FD5B237DFEF1C8 
222E5BCD2C5B21D15C2E64014100EDBI 
3AFD5BDDE5E1B938E27922FB5B1 8D9DD 
21F05B21D15CAFDDBE00201C01ED5C0A 
32445B3E03DDBE0920090ACD825BA70n 
C4585B030AA720E73664C916005F0A83 
1473235F32685B3E03DDBEEE20097BCD 
825BA7280B18E77B327B5BAFDDBEEECO 
2B1520FCC9E56F3A2E5BD6B0856FAF3C 
BD280DC607BD2808FE40280218F1E1C9 
0AElFEF8C8FE08C8AFC9" 


ge = = Ritorna inedicola = m ny 


: VIDEO BASIC © . 


Il corso più entusiasmante su cassetta 
del Gruppo Editoriale Jackson per Commodore 64, 
VIC 20 e Spectrum 


200.000 copie vendute 


del 1° fascicolo della prima edizione 


Il corso è composto da: 
20 fascicoli + 
20 cassette + 
5 splendidi raccoglitori 


(Quattordicinali) 


Oggi è davvero facile imparare il tu, senza fatica, presto e bene, Oggi il Basic si impara così. 
Basic. Con Video Basic il corso su impari a conoscere Video Basic, il corso su cassetta per 
cassetta che ti permette di e programmare il tuo computer, sia parlare subito col tuo computer. 
rogrammare subito il tuo computer. esso un VIC 20, un Commodore 64 o 
facile: tu chiedi, lui risponde, un Sinclair. i i LIT 
tu impari. Passo dopo passo. Video Basic è in edicola. Video Basic 
Sul tuo schermo appaiono le Provalo subito. per imparare non solo il Basic. 
domande, le risposte, gli esercizi e Ogni lezione è uno spettacolo. _————_—_—————— zo 


Un'altra grande idea firmata 


GRUPPO EDITORIALE JACKSON 


Milano=San Francisco-eLondra-=Madrid 


di Luca Ciarlatani 
e Stefano Di Paolo 


Questo programma vi consentirà 
di rappresentare sullo Spectrum 
funzioni matematiche estrema- 
mente complesse 


uark è stato realizzato per visualiz- 
A Ju funzioni generiche in tre di- 
mensioni definite tramite due parametri 
nella forma di: 


X=f (u,v) 
Y=f(u,v) 
Z=f,(u,v) 


I dati necessari per il programma ver- 
ranno richiesti parte all’inizio e parte 
durante la sua esecuzione. Tali parame- 
tri sono: la funzione stessa, da sostituire 
a quella presente nelle linee 1020 — 
1030 — 1040 (la quale visualizza sullo 
schermo un toroide, una grossa ciam- 
bella); il valore minimo e massimo di u 
e v; il numero di valori da calcolare per 
u e per v (chiamati L e M), dal quale 
dipende il numero di linee e quadrati 
che verranno rappresentati. L’elabora- 
tore effettuerà la prima fase di calcolo, 
quindi richiederà altri tre valori (le coor- 
dinate cartesiane in tre dimensioni del 
punto che stabilirà l'angolo della visua- 
le). 

Dopo la seconda fase di calcolo sarà 
richiesto il tipo di visualizzazione prefe- 
rito. Al termine sarà offerta la possibili- 
tà di ripetere il disegno, cambiare ango- 
lazione (senza ripetere la prima fase di 
calcolo), registrare i dati dell’immagine 
o lo screen$, cambiare un disegno e 
cambiare la funzione. E possibile regi- 
strare l’immagine video in due modi: o 
normalmente, tramite uno screen$, op- 
pure, più rapidamente, registrando in 
due fasi i dati necessari per il disegno; 
l'inconveniente di questo secondo tipo 
di memorizzazione sta nel fatto che il 
disegno può essere visto solo se carica- 
to con il programma Quark in memoria, 
anche se in questo modo è possibile al- 
terare i parametri originali della figu- 
ra. 

Questo programma differisce da quelli 
in commercio in diversi punti: 

1) l'esecuzione è più rapida, perché, in- 
vece di calcolare tutti i valori assunti 
dalla funzione in questione, ne calcola 
tanti quanti l’utente ne desidera, senza 
che una figura venga compromessa. 
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1000-1070 


Questo sistema, purtroppo, rende im- 
possibile la cancellazione delle righe na- 
scoste. Anche la rappresentazione gra- 
fica è molto rapida, perché tutti i calcoli 
che necessitano ad essa sono eseguiti 
prima. 

2) Con questo programma è possibile 
disegnare qualsiasi funzione in tre di- 


trasferimento dei dati necessari alla visualizzazione da un 


Descrizione del programma: 
Linee Commento 
10-170 inizializzazione del programma 
180-360 calcolo dei valori della funzione 
370-590 proiezione, traslazione e rotazione 
600-660 

array numerico a uno alfanumerico 
670-790 visualizzazione 
800-910 ‘ opzioni 
930-960 subroutine per rototraslazione 
970-980 subroutine save disegno 
990 save programma con autostart 


definizione della funzione 


mensioni, in quanto la funzione (come 
detto prima) è espressa tramite due pa- 


rametri e non nella solita forma 
Z=f(X,Y). 

3) C’è la possibilità di visualizzare la 
funzione sotto tutte le angolazioni senza 
che sia necessario ricalcolare tutti i va- 


lori della funzione (ripetendo, cioè, solo 


la seconda parte di rototraslazione, più 
veloce della prima). 

Il programma, come già detto, è diviso 
sostanzialmente in tre parti: 

— calcolo dei valori della funzione; 

— proiezione, traslazione e rotazione; 
— visualizzazione. 


Peculiarità del programma 

Il programma calcola i valori delle fun- 
zioni partendo non esattamente dai limi- 
ti (minimo e massimo di U e V), bensì 
da poco prima di tale valore, terminan- 
do quindi anche prima; ciò non è da 
considerarsi un errore del programma, 
ma è stato fatto esclusivamente al fine 
di evitare che un calcolo vada all’infinito 
(se ad esempio consideriamo la funzio- 
ne SINx/x, normalmente ad x viene at- 
tribuito: -a<x<a per ottenere un 
buon effetto di simmetria, però quando 
x assume il valore zero si ottiene l’erro- 
re “Number too big”; ciò viene così evi- 
tato). Tale sistema oltretutto permette 
di non chiudere la figura, il che consente 
di vedere una sezione di essa. 


Nel caso il programma si arresti dare 
CONTINUE. Se ciò non fosse sufficien- 
te, per non riscrivere tutti i valori, dare 
GO TO 80. 

Nella fase di inserimento dei limiti di u 
e v, se non si desidera cambiare il valo- 
re, inserire n e il valore non muterà. 

Il programma provvede ad ingrandire 
la figura o a ridurla senza sfalsare il 
disegno (è mantenuto il rapporto tra le 
ascisse e le ordinate). 

Durante l’esecuzione del programma si 
hanno tre fasi di conto alla rovescia. 
La velocità di esecuzione della prima 
fase di calcolo varia a seconda delle 
difficoltà di esso, mentre la successiva 
fase ha durata costante, cioè ogni volta 
i passi di calcolo hanno la medesima 
durata. E consigliato a coloro che pos- 
seggono una stampante di inserire una 
istruzione di COPY del tipo 


795 PRINT # 1; AT 0,0; “Vuoi stampa- 
re? s”: PAUSE 0: IF INKEY$=“s” 
THEN COPY 


La seconda fase impiega 0.4 sec. per 
passo, mentre la prima e la terza fase 
sono variabili. In ogni caso la prima fase 
impiega circa un secondo a passo. 

Due cose per finire: 1) “Quark” gira 
anche sul 16K, ma solo con risoluzioni 
(valori di L e M) ridotte: agli utenti 16K 


Quark 
versione per Spectrum 16K/ 
48K 


10 REM Quark 
20 GO SUB 1020 


converrà modificare il listato con i soliti 
trucchi «risparmia memoria» (uso mas- 
siccio di VAL, sostituzione con una va- 
riabile delle costanti numeriche più ri- 
correnti, riduzione delle linee del pro- 


gramma, ecc.) — 2) al termine di 
“Quarkl sulla cassetta troverete un pro- 
grammino dimostrativo, che caricherà, 
una dopo l’altra, sei schermate ottenute 
dagli autori. 


Alcune funzioni grafiche interessanti 


valore minimo di valore massimo di 


Sfera: X= SIN V* COSU U=0 U = PI°2 
Y = SIN V* SINU V=0 V=PI 
Z= COSV 


Utilizzare una buona 
risoluzione (L = 20 * M = 20) 


Toroide: X = (SIN U +3)* SIN V U = 2°PI Wi= 45PI 
Y = (SIN U +3)" COSV Ve=0 Va= 2*PI 
Z= COSU 

Vulcano: X = U* SIN V Wi=10:5 Ut 
Y=U* COSV V=0 V= 2°PI 
Z = (U*U) * EXP (-U*U) 
Non necessita di alta risoluzione 

Onde: X=U U=0 U = 2*PI 
MEV WVA=#0 Vi=T25BI 
Z= SINU* SINV 


Per un buon effetto si consiglia 
di usare alta risoluzione 


(L = 20* M = 20) 


Modifica del programma quark: 
La parte del programma che calcola i valori della funzione nei vari punti è, 
come vi sarete sicuramente accorti, molto lenta. Ciò non è dovuto, come in 
un primo tempo ero portato a pensare, soltanto alla lentezza di calcolo di 
funzioni complesse come il seno ed il conseno, bensì è causato dall’uso della 
funzione DEF FN, che rallenta notevolmente l’esecuzione. Quindi suggerisco 
una modifica: 
le linee da modificare sono: 
1020 DIM C$(3) 
1030 LET C$(1) = “fn(x)” 
1040 LET C$(2) = “fn(y)” 
1050 LET C$(3) = “fn(z)” 

280 LET XX = VAL C$(1): (...) (il resto rimane inalterato) 

290 LET YY = VAL C$(2): (...) (il resto rimane inalterato) 

300 LET ZZ = VAL C$(3): (...) (il resto rimane inalterato) 
fn(x,y,2) significa ovviamente la funzione di x,y,z. 
Nelle linee 280-300 va modificata solo la prima istruzione della linea. 
Con questo concludo il materiale inerente il programma Quark. 


30 INK 7: PAPER 0: BORDER 0: 
BRIGHT 0: FLASH 0: CLS 
40 LIST 1020 


50° LET tSs! 
": LET t$=t$+tS: LET ui= 
0: LET us=ui: LET vi=us: LET vs= 
vi: LET l=vs: LET m=l 
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60 


70 


80 


90 


100 


110 


120 


140 


150 


160 


170 


180 


300 


INPUT "Vuoi cambiare funzione? (s 

/n)";a$ 

GLSA:SLE ape vs THENS REST A020:: 
PRINT AT 19,0;"Per tornare al p 


rogramma :"''TAB 21;" RUN + ENTE 
RIGO TO 9999 
LET n=ui: PRINT AT 2,0;"Valore i 


nferiore di u:'":ul: INPUT ul: 
PRINTUAT 2,221, 15.022 UTO: ) 

LET n=us: PRINT AT 3,0; "Valore s 
uperiore di u:";us: INPUT us: 
PRIENT AT 3223 us ses (223910) 3) 
INPUT "Vuoi correggere i limiti 


di u";a$: IF aS="s" THEN 

PRINT AT 2,0;t$: GO TO 080 

LET n=vi: PRINT AT 5,0;"Valore i 
néerdore dilvi"=vi: ITNPBUTEVA: 


PRIENT AT 5,225Vvi; tS (222100) 
LET n=vs: PRINT AT 6,0;"Valore s 
uperiore di v:";vs: INPUT vs: 
PRINT AT 6,22:;vs:tS(22470:5) 
INPUT "Vuoi correggere i limiti 
di v"ras: IF as$="s!THEN 
PRINT AT 5,0;t$: GO TO T10 
LET n=1: PRINT AT 8,0; "Scomposiz 
lonesdi u. (LL): li INBUTSL: 
PRINT AT 87,23» ls tS (23400) 
IF 1<=0 THEN GO TO 140 
LET n=m: PRINT AT 9,0; "Scomposiz 
ione di v (M):";m: INPUT m: 
PRINT''AT 9723=miytS (23100) 
IF m<=0 THEN GO TO 150 
INPUT "Vuoi correggere le L e M? 
"Serra S="e!-THENCEPRINTICAT8 
Qin COSTO 140 
INPUT "Vuoi ricorreggere?";as: 


TE as="s"THEN CLS “GO TOC080 
CLS. BRINT.AT..0,:0; ELASHOESTABE 
endere"; FLASH 0''"Valore di U: 
da ";(STR$ ui+" TORE TOMST Aa 

"; (STRS us+" SE EA( TO 5y&Umn " 
*bolipassittitvalore dikveridarsl: 
(STRS vi+" O) ORTO, et al 
STR$ vs+" LI TO 5)lLein Use 

passi" 

LET passou=(us-ui)/l 


LET passov=(vs-vi)/m 
LET v=vs-passov/2 
LET r=0 

DIM a(3,1,m) 

FOR k=m TO 1 STEP -1 


LET u=us-passou/2 


FOR j=1 TO 1 STEP -1 

BEEP .005,20: PRINT AT 18,0;j+(k 
Me; " 

LET xx=FN x(u,v): LET a(1,j,Kk)=x 


x 


LET yy=FN y(u,v): LET a(2,]J,k)=y 


y 
LET zz=FN z(u,v): LET a(3,j,k)=z 
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390 


400 


z 
LET kk=SQR (xx*xx+yy*yy+ZZ*Zz) 
IF kk>r THEN LET r=kk 

LET u=u-passou 


NEXT j 

LET v=v-passov 

NEXT k 

DIM d(3) 

CLS : BEEP 1,20: INPUT "Inserire 
9 valobidsidi D (che esp 


rimono l'angolo di proie 
zione) "!"D (ie. (1) FTABNI 05 D (2 
ate di(2) FAB 20 D'()ed(8) 


IF d(1)*a4(1)+d4(2)*d(2)<=10e-4 

OR d(1)*A4(1)+4(2)*4(2)+d4(3)*d(3 
)>=1000 THEN GO TO 380 

LET kk=r/SQR (d(1)*d4(1)+d4(2)*d(2 
)+d(3)*d(3)) 

DIEM: p'((3);;* VFOR k=0UPo. 3: 
=d(k)*kk: NEXT Kk 

LET rr=SQR (p(1)*p(1)+p(2)*p(2)) 


LET p(k) 


LET 
LET 


kk11=-p(2)/rr 

kk12=p(1)/rr 
kk21=-p(1)*p(3)/(r*rr) 
kk22=-p(2)*p(3)/(r*rr) 
kk23=SQR (1-p(3)*p(3)/(r*r)) 


bi(2,, mi 
SUB 0930 
LET hormax=b(1,1,1): LET hormin= 
hormax: LET vermax=b(2,1,1): 
LET vermin=vermax 
BRIGHT 0: FOR k=m TO 1 STEP -1: 
FOR j=1 TO:1 STEP -1 
GO SUB 0930 


LET j=1: LET k=1: 


BEEP .005,20: PRINT AT 18,0;j+(K 
-1)*1;" " 

IF b(1,j,k)>=hormin THEN 

GO TO 550 


LET hormin=b(1,j,k): GO TO 560 
IF b(1,j,k)>hormax THEN LET hor 
max=b(1,j,kK) 

IF b(2,j,k)>=vermin THEN 

GO TO 580 

LET vermin=b(2,j,k): GO TO 590 
IF b(2,j,k)>vermax THEN LET ver 
max=b(2,j,k) 

NEXT j: NEXT k 

REM Visualizzazione 


CLS : LET hor=(hormax-hormin)/25 
5: LET ver=(vermax-vermin)/175 
IF hor<ver THEN LET step=ver: 
GO TO 640 

LET step=hor 

REM Disegna le righe 
DIMiSS:(27l7M 1) POR = TO 
BEEP .005,20: PRINT AT 18,0;1-}j 
pil HW: \(FOR:(k=:b POM SEEDS, 
k)=CHR$ ((b(1,3,k)-hormin)/step) 


660 


670 
680 


690 


700 


850 
860 


870 
880 


890 
900 


910 
920 
930 


3; BETESS.(27 7], = CHRSMU(DI(27]70) = 
vermin)/step): NEXT k: NEXT ]j 
DIMMI: 2) *FLERID'A)EDITETS6(2)=m 
INK 5: BRIGHT:1: 
BEEP .1,20: BEEP 
20 

INPUT: "Vuol.il'reticolatoS(1) o 
i quadrati. (2) ?"=w IF.w 
<>1 AND w<>2 THEN GO TO 640 


CLS 


«il 7 5: BEER® .:37 


CTS. FOR. }e=pC TO bi(2)% 
TO b(1)-1 STEP w 
PLOT CODE' s$(1,5jyk) ,CODE s$(2,3, 
k) 

DRAW CODE s$(1,]+1,k)-CODE s$(1, 
J,Kk) ,CODE s$(2,j+1,k)-CODE s$(2, 
3) 

NEXT j: NEXT k 

REM Disegna le colonne 
FOR j=1 TO b(1): FOR k=1 
-l STEP w 

PLOT CODE is$.(l.,3.,K) ,CODE s$(2,], 
k) 

DRAW CODE s$(1,],k+1)-CODE s$(1, 
ink) 7 C0DBRsS: (21), K+1)- CODE; ‘sS (2, 
3,X) 

NEXT k: 
INK 7 

PRINT #1;AT 0,0; "Vuoi ripetere i 
1 disegno? s": PAUSE 0: IF 
INKEY$="s" THEN GO TO 670 

LET e$=" 


FOR j=1 


TORD'(02) 


NEXT j 


PRINT #1;AT 0,0;e$ 
PRINT #1;AT 0,0;"Vuoi cambiare a 
ngolazione? s": PAUSE 0: IF 
INKEY$="s" THFN GO TO 370 
PRINT #1;AT 0,0;e$ 
PRINT #1;AT 0,0;"Vuoi registrare 

l'immagine? s": PAUSE 0: IF 
INKEY$="s" THEN GO SUB 0970: 

GO TO 800 
PRINT #1;AT 0,0;e$ 


PRINT #1;AT 0,0;"Vuoi registrare 


lo Screen? s": PAUSE 0: IF 
INKEY$="s" THEN SAVE "Quark 
SCREENS "SCREENS : GO TO 800 


PRINT #1;AT 0,0;e$ 

PRINT #1;AT 0,0; "Vuoi caricare u 
n disegno? s": PAUSE 0: IF 
INKEY$="s" THEN GO TO 0980 


PRINT #1;AT 0,0;e$ 

PRINT #1;AT 0,0;"Vuoi cambiare l 
a funzione? s": PAUSE 0: IF 
INKEYO=SSUNSIHENS LIST. 1020 
PRINT AT 19,0;"Per tornare al p 
rogramma:"''TAB 20;" RUN + ENTER 
ti. “GO TTOR9999 
TNK'SSEGIS: 
STOP 
LET:'Kkk=<Mlal(1,j ak) #p()aa (2,3 K)S 


GO TO 080 


pi(2)+a (3, ]jmk).*p(3)) /rsr 

BET) b(1,3,k}= (all 0p(14 £kk)=®* 
kk11+(a(2,3,K)+p(2)*kk)*kk12 

LET b(2,) Mela dro ct) *kk) * 
kk21+(a(2,3j,K)+p(2)*kk)*kk22+(a( 
3,3 ,K)+p(3) *kk) *kk23 


RETURN 
SAVE Suark CIMIASDATALD(JE 
POKE 23736,181: SAVE "QuarkVide 
o" DATA SsS(): RETURN 
LOADE”Ouark LIMI DARASDA)": 
LOAD ‘‘’QuarkVvideo" DATA SS(0): 
GO TO 680 
CHEARTSMFORSE=INTO.5:' POKE 23736 
pl 813 MSAVE CHRS 16+CHRS 5+"-Quar 
k-" LINE 0° NEXP fi BEERA5, 200 
RUN 


DEF EN x(u,v)=(SIN-u+3)#*SIN .v 
DEF FN y(u,v)=(SIN u+3)*COS v 
DEF FN z(u,v)=COS u 

RETURN 
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IL VERO GIOCO COMINCIA ADESSO 


di Giuseppe Voglino 


Un programma rivolto a liceali, 
universitari e a tutti coloro che 
si dilettano di integrali 


L° valutazione di un integrale definito 
J® f(x).dx con metodi espliciti è spes- 
so difficile, e qualche volta addirittura 
impossibile, anche quando la f(x) ha una 
forma analitica relativamente semplice. 
In questi casi un’ovvia alternativa è tro- 
vare una funzione g(x) che sia una buo- 
na approssimazione della funzione f(x) 
e allo stesso tempo semplice, per poter 
essere integrata in modo esplicito. La 
figura 1 illustra l’approssimazione della 
funzione f(x) con il polinomio p(x), che 
riproduce esattamente i valori della f(x) 


nei punti x); X» Ka K3, Xp 


Il vero valore dell’integrale definito 
h/ rd f(x) - dx è dato dall’area sottesa dalla 
curva f(x), laddove l’approssimazione 
SJ p(x)-dx è data dall’area sotto 
la curva tratteggiata p(x). 

Si noti che la differenza tra f(x) e p(x), 
ò (x) =f(x) — p(x) differisce in segno sui 
vari segmenti dell’intervallo di integra- 
zione (nel caso di figura 1 l’intervallo di 
integrazione .è x, — x,) e inoltre l’errore 
totale di integrazione è dato da: {4 d 
(x)-dx = f(x)-dx — Ti p(x)-dx, il quale 
deve essere piccolo, anche se p(x) non 
è una approssimazione particolarmente 
buona di f(x). Gli errori positivi in un 
segmento dell’intervallo di integrazione 
(vedi x,-X,, X,—X,) tendono a cancellare 
quelli negativi (vedi x —x,, x3-x,) in un 
altro. 

Ci sono molte possibilità di fare ciò, in 
relazione a: i) scelta della spaziatura dei 
punti x, con i=l.,..., N (dove N è un 
numero finito); ii) grado del polinomio 
interpolatore p(x); iii) numero dei punti 
Xecc., 

Nel caso presentato si ricorre all’uso di 
metodi che valutano la funzione inte- 
granda in una decina di punti entro l’in- 
tervallo di integrazione. Trattandosi di 
metodi impiantati su calcolatore, veda il 
lettore di non includere nell’intervallo 
di integrazione punti x, che siano di di- 
scontinuità per la funzione, ossia in cui 
il valore della funzione non sia definito 
o che valga infinito, e che la funzione 


stessa sia continua in tutto l’intervallo 
di integrazione: insomma, i metodi sono 
ottimi per tutte quelle funzioni che de- 
scrivono fenomeni fisici reali, pena 
l’overflow della macchina. 

I metodi sono i seguenti: 

1) SIMPSON 

L’intervallo di integrazione è diviso in 
2n intervalli in cui n è a scelta: aumen- 
tando n (di solito n=100 è più che suffi- 
ciente) aumenta il tempo richiesto dal 
calcolatore per eseguire l’integrale. 

La formula da impiegare è la seguen- 
te: 


d 


è f(x)-dx= 
delta dem 


«[fot4: (frtfat.+fon-1) + 


+20 fi +... + 1° #5) + to] 
avendo denotato: 
b = 


h= =. f=f(x)ex=a+i-h 
2n i i i 


2) BODE 


La formula usata è la seguente: 


Diah 


b È = a 
Satta) - di = 209376 


- [16067 - (f+f,) + 106300 - (i, +f,)— 
—48525 - (£,+f,) + 272400 - (£,+f,)- 
—260550 - (£, + £,) + 213684 - (£. +f,)] 


b-a . 


d : h= ’ 
ove 10 


{=f(x) 


e x=ati-h 2/3 sp. per i=0, 1, ..., 10 
3) GAUSS 
La formula impiegata è la seguente: 


Jef) > de = i W -1(9) 


b_a) (b+a) 
d ca ba). . pre ca (0, 
ove y, 9 x + i 

e inoltre: 

W.=W., =0.2491470458 


W° = WÎ = 0.2334925365 
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rasi 


W,=W, = 0.2031674267 
Wi = WS = 0.1600783285 . 
W,=W;, = 0.1069393259 
Wi = W,; =.0.0471753363 
x, = —x, =0.1252334085 
x, = x, = 0.3678314989 
x,=-x, = 0.5873179542 
x, =-x = 0.7699026741 
x, = —x;o = 0.9041172563 
x = —x,, = 0.9815606342 


4) CHEBYSHEV 


In questo caso si usa la seguente formu- 
la: 


b-a 
(a) dr nd A 
JP f(x) - dx 9 


x+ 


ES bra b+a) 
3, f( 2 i 2 


eis 


; 


IRISLSnane2 


.-1679061842 


x.=0 
0.5287617831 
0 
0 


dd De 
(al 


.6010186554 
.9115893077 


WUN — co 


xd 
FS 

POM 
d''a 


Nel caso in cui il secondo estremo di 
integrazione è infinito (anche qui presta- 
re molta attenzione alla funzione da in- 
tegrare, altrimenti si incorre in un over- 
flow del computer oppure in un risulta- 
to tutt'altro che attendibile) si fa uso 
della seguente: 


00 1 W 
a si =2 
ipa vd (1+x)2 
2 
f( gra +a-1) 


e i coefficienti sono quelli di Gauss. 
L’intero programma comprende un sot- 
toprogramma principale, il quale si oc- 
cuperà dell’introduzione dei dati in in- 
gresso, della stampa sul video dei ini 
tati ottenuti e delle varie opzioni conte- 
nute nel programma stesso, nonché ri- 
chiamerà il sottoprogramma voluto dal 
tipo di integrazione scelto (Simpson, Bo- 
de, Gauss o Chebyshev). 

Il diagramma di flusso del programma 
principale è rappresentato in figura 2. 


Sottoprogramma SIMPSON 
(linee 100+150) 

Il primo ciclo FOR...NEXT (linea 110) 
calcola la quantità (f. + Lite. BASI 
dove la quantità 2n-ll è stata chiamata 
nl, relativa alla somma dei valori della 
funzione integranda calcolata nei punti 
dell’intervallo (a, b) di posto dispari: il 
valore di tale somma viene posto nella 
variabile st di cui alla linea 110; quindi 
la prima volta la variabile di controllo i 
del ciclo della linea 110 parte da 1 e 
arriva al valore nl, incrementandosi di 
2 unità ad ogni passaggio: ciò si fa age- 
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Fig. 1 approssimazione della funzione f(z) col polinomio P(z) 


volmente con FOR i=1 TO nl STEP 2. 
Salvato il valore calcolato st, e moltipli- 


.cato per 4 nella variabile nt, si utilizza 


ancora la variabile st, dopo averla posta 
a zero, per il calcolo della somma della 
funzione integranda nei punti del mede- 
simo intervallo di posto pari, ossia di (f 
+f, +... + f,,_y), dove la quantità 2n— 

è stata chiamata n2; in tal caso la varia- 
bile di controllo del secondo ciclo parte 
da 2 ed arriva a n2: FOR i=2 TO n2 
STEDI2 

Alla linea 140 il valore di st, calcolato 
nel secondo ciclo, viene sommato alla 
quantità contenuta in nt e ai valori della 
funzione calcolata negli estremi dell’in- 
tervallo, che sono a e b. Il tutto viene 
poi diviso per 3 e moltiplicato per h= 
(b-a)/2n. 


Sottoprogramma BODE (linee 
200:250) 

Tale metodo valuta la f(x) in 12 punti, 
i quali a coppie, e precisamente il primo 
e l’ultimo, il secondo e il penultimo, 
ecc.; vengono moltiplicati per dei coeffi- 
cienti determinati a priori. 


Un primo approccio consisterebbe nel’ 


solito ciclo FOR...NEXT e il contatore 
i variabili da 0 a 10, ma ci si rende conto 
che i coefficienti sono solo 6 e che quan- 
do i è maggiore o uguale a 5 i coefficien- 
ti si ripetono. Allora, posti i coefficienti 
in un vettore b(s) di lunghezza pari a 6, 
si utilizza un ciclo FOR...NEXT in cui 
i=0, 1, ..., 5; si noti poi che quando si 
calcola la funzione nel primo punto, ve- 
di 15, eièora paria zero, occorre calco- 
lare anche la funzione nell’ultimo punto, 
vedi f,, poiché entrambi vanno moltipli- 
cati per il medesimo coefficiente, che in 
questo caso è b(1) e dato che i=0 risulta 
b(1) = b (i+1): ossia bisognerà fare 
un'operazione tipo bl(i+1) (f + f) per 
i=0, ..., 5 in cui j=10-i. i 
FOR i=0 TO 5: LET x=a+ih : LET 
st=FN f(x) : LET j=10-i : LET x=a+jh 
: LET st=st+FN f(x) : LET nt=nt+b 
(it1) st: NEXT i 


E Ei 


DEF FN F(x) 


DIM b(8), g(8), 
mer 19) al | 


1 SIMPSON 


m= 3 GAUSS 
4 CHEBYSHEV 
5 CHEBYSHEV 


Figura 2 -il diagramma di 
flusso di «integrazione numerica». 


[L‘L I — —_ NNNNENID 


Sottoprogramma GAUSS (linee 
300 + 340) 


Si potrebbe tradurre direttamente in 
BASIC il diagramma di flusso presenta- 
to, ma ci si accorge che i 12 coefficienti 
W(s) non sono tutti Sigari, ma sono 
uguali a coppie (W,,W.), (UA Wall 
(W., W,,) e anche gli of in in cul risulta 
essere "069 —x6), (x, x). x (4; —x . 


tore g(s) di lunghezza pari a 6, che con- 
terrà W,,..., W., visto che da W, aW, 
si ripetono ‘uguali, e gli x(s) in un altro 
vettore h(s), sempre di lunghezza 6, che 
conterrà x,,..., x5, dato che da x, a x,, 
cambia solo il segno. 

Posto h=(b—-a)/2, si calcola x=((b—a)/ 
2): gli) + (b+a)/2 in due volte: prima 
x=sign - gli) -hincuisign=l1e, osser- 
vando che (b+a)/2=(b—a)/2+a=h+4a, si 
ha poi x=x+h+a; in seguito è nt=nt+hl(i) 
* FN f(x). Tutto questo in un ciclo 
FOR... NEXT per i=1,..., 6. Uscito v 
ciclo si cambia sign=1 in sign=-1, 
modo da cambiare segno ai gli) e si n 
te il ciclo interno in i un’altra volta. 


Sottoprogramma CHEBYSHEV 
(linee 400-:+470) 


Identico ragionamento anche in questo 
metodo, con l’unica differenza che il ci- 
clo più interno ha i-1, ..., 4 anziché 
i=0, ..., 5, dato che qui i coefficienti 
sono 4 e che x,=0 


Sottoprogramma CHEBYSHEV 
con estremo superiore infinito 
(linee 500-550) 

Il metodo n° 5 ricopia nella sequenza 


delle istruzioni quello di GAUSS e di 
questo utilizza i medesimi coefficienti. 
Tuttavia si è preferito spezzettare la 
formula in operazioni più semplici, cosa 
che permette al calcolatore di diminuire 
il tempo di calcolo della stessa: per 
esempio, porre la quantità 1+x(i) in una 
variabile di comodo, vedi q, e quindi 
non dover più ripetere l’operazione 
1+x(i) nel passo successivo; e anche evi- 
tare la (1+x(i))?, che viene sostituita da 
q*q, cosicché nel caso in cui la quantità 
1+x(i) dovesse risultare negativa si evi- 
ta un arresto del programma, come ri- 
sulterebbe se si scrivesse (1+x(i))12. 

Nel caso si scelga il metodo n°5 bisogna 
porre naturalmente attenzione nella 
funzione da integrare (si rimanda la que- 
stione a testi specializzati sulla materia); 
degli esempi di guida: evitare f(x) = 
cos(x), sin (x), x, x?, x3, ..., x", ecc... 


Programma principale 

Caricato il programma appariranno sul- 
lo schermo le istruzioni per poter inseri- 
re la funzione da integrare: niente di più 
semplice. Occorre solo digitare una 
semplice linea di programma 10 DEF 
FN f(x)= ..., dove al posto dei puntini 
vi sarà la f(x) scritta in modo esplicito 
e il numero di linea 10 è tassativo, visto 
che tale linea deve essere inserita pro- 
prio in un punto preciso del program- 


STAMPA 
risultato 


nt 


Figura 2 -il diagramma di 
flusso di «integrazione numerica». 


figura 3 - i diagrammi di flusso delle sub- 
routine di integrazione. 
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ma. Se la f(x) fosse l’equazione di una 
parabola, allora 10 DEF FN f(x) = x? + 
x+1. 

Introdotta la:linea 10 battere il tasto 
“c”: apparirà CONTINUE. Date EN- 
TER. Alla linea 15 vi sono le inizializza- 
zioni delle diverse variabili. Si noti che 
per risparmiare memoria si sono posti 
u=1 e v=0, cosicché tutte le volte che 
si incontrano nel programma 1 o O si 
scrive al loro posto rispettivamente u o 
v; esempio FOR i=1 TO 2 diventa FOR 
i=u TO 2, ma un FOR i = 2 TO 100 
rimane naturalmente tale quale (non 
venga in mente di scrivere FOR i=2 TO 
uvv !!!!). 

La linea 30 scrive “Quale scegli?” in 
modo lampeggiante, avendo posto t=u, 
ovvero t=1, in FLASH t; operata la 
scelta, nella riga seguente si pone t=v, 
ovvero t=0, in FLASH t, cosa che toglie 
il lampeggio alla scritta, ma cancella an- 
che la scritta stessa, dato che questa 
viene scritta con OVER 1 due volte nel 
medesimo posto (per questa proprietà 
riferirsi al capitolo 25 del manuale in 
italiano, pag. 168 - Esercizio 1). Medesi- 
ma operazione anche per cancellare 
l’altra scritta “Giusto?”. 

La linea 36 chiama la linea 715, in cui 
si scrivono nella parte inferiore dello 
schermo tramite PRINT 0; AT 0,0:... 
se la scelta del metodo da usare è stata 
giusta. Anziché usare una istruzione del 
tipo LET t$=INKEY$ si è preferito 
PAUSE 0 LET t$=CHR$ PEEK 
23560 (la locazione di memoria 23560 
contiene la variabile di sistema LAST 
K, ovvero il codice dell’ultimo tasto pre- 
muto). Esempio: se si è premuto il tasto 
c, allora la locazione 23560 contiene 99 
e CHR$(99)=“c”. Fatta la scelta, per 
cancellare la scritta nella parte inferiore 
dello schermo basta INPUT“”. 

Alla linea 9989 e seguenti è presente 
una routine per l’ingrandimento dei ca- 
ratteri interamente scritta in BASIC, 
che fa uso dei caratteri grafici definibili 
dall’utente; è stata inserita nel program- 
ma perché in una sola riga dello scher- 
mo non entrano insieme i valori del- 
l’estremo inferiore, di quello superiore 
e del risultato. Per tale motivo si è pre- 
ferito mettere tali valori in due righe e 
il numero del metodo scelto, ora ingran- 
dito, abbraccia entrambe le righe, per- 
mettendo di sapere senza sbagliare a 
quale metodo si riferiscono i valori 
stampati via via sullo schermo. 

A proposito: il programma inverte il se- 


Integrazione numerica 
versione per ZX Spectrum 
16K/48K 


1 REM ®© VOGLINO 
2 POKE 23609,100: 


SRPRINTAT5,V; 
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Giuseppe 


LET u=l: 


FLASH u;"Immetti 1 


100 ) SIMPSON 200 | BODE 


nt=0 | st=0 nt=0 
b-; b-; 
Loerar | fa 


i 


x=jel"h 


stest+FNi(x) 


st= FN f(x) 


xe (eh 
L___/ 


at= st+ FN f(x) 


site nt + bli+1) “at 


nteh°s 
299376 


ni=nt+2"st+ 
+EN 1(;+)+FN f(b) 
ni=nth/3 


n1=2n-1; n2=2n-2 t=0 


ntante 


+w(i) *FN f(x) 


Figura 3 - i diagrammi di flusso 
della subroutine di integrazione 


gno del risultato dell’integrazione qualo- 
ra l’estremo superiore sia inferiore di 
quello inferiore: ciò per una nota pro- 
prietà dell’integrale. 

Sembra che non ci sia nient’altro da 
spiegare. 

Infine vengono riportati i diagrammi di 
flusso delle varie routine. 


Ancora un suggerimento 


Una volta inserita la linea 10 lo Spec- 
trum visualizza sullo schermo le linee di 
programma dalla linea 10 fino al riempi- 
mento di tutto lo schermo; qui compare 
il cursore K, per cui schiacciando il tasto 
c apparirà CONTINUE e si dà ENTER 


a linea"; 


per la ripresa del programma. 

Se si vuole evitare la visualizzazione del- 
le righe di programma, è sufficiente edi- 
tare la linea 1 in questo modo: 

1 REM PREMERE CONTINUE 

e, prima di dare ENTER, entrare in mo- 
do E premendo CAPS SHIFT + SYM- 
BOL SHIFT, poi premere CAPS SHIFT 
+ 7, cosicché le linee seguenti verranno 
scritte in bianco e scompariranno dal 
video, e infine dare ENTER. In questo 
modo le linee di programma successive 
alla linea 1 non verranno visualizzate 
sullo schermo e comparirà in alto solo 
la linea 1, che indicherà che cosa biso- 
gnerà fare. 


FLASH v;AT 8,5;" 10 DE 


EGENCE (0); = AP 3785 “CON SLAE 
UNZIONE"' "TAB: 5;"--. nella variab 


ile x 


TRE. “PAR (I 
PUNTINI" 


AL POSTO DEI 


4 PRINT AT 20,v;"POI PREMERE "; 


LET v=0 


FLASH u; "CONT"; 


FLASH v;" PER C 


ONTINUARE" 


5 GO SUB 1000: 


BEEP 1,25: STOP 


40 


42 
45 


50 


52 


53 
DS 


60 


65 


70 


1/5) 


210 


DIM n$(57,9) 
FOR i=u TO 5: READ n$é(i): NEXT i 
CLS : LET l=v: LET a=v: LET b=v 
PRINT AT v,uj FLASH u; INVERSE u 
; "INTEGRAZIONE DI UNA FUNZIONE" 
FOR i=u TO 5: PRINT AT 2+1,0;i; 
TAB 3;n$ (i): NEXT i 
LET t=u: GO SUB 700: 
LET t=v: GO SUB 700 
IF m<1 OR m>5 THEN PRINT #v; 

AT v,Vv; FLASH u;"SCELTA ERRATA - 
Ripeti, prego!!"; FLASH v: 
PAUSE 200: GO TO 30 

GO SUB 705: LET t=u: GO SUB 710 

GO SUB 715: LET t=v: GO SUB 710 

PRINT AT 10,v; INVERSE u;"N."; 
INVERSE v;AT 9,5;"- ESTREMI INT 

EGRAZIONE -" 

INPUT "": LET riga=9+2*m: LET co 

1=v: PRINT AT riga,col;" 


INPUT m 


LET c$=STR$ m: GO SUB 9989 


LET col=u: LET c$=")": GO SUB 99 
89 

LET t=u: GO SUB 900: INPUT a: 
LET. t=vs: 60 SUB 900 

LET t=u: GO SUB 910: IF m<>5 
THEN INPUT b 

LET t=v: G0 SUB 900 

IF m=u THEN INPUT "Numero Sotto 
intervallati 

GO SUB (100 AND m=1)+(200 AND m= 


2)+(300 AND m=3)+(400 AND m=4)+( 
500 AND m=5) 


PRINT AT 10+2*m,5; INVERSE u;"RI 


SULTATO"; INVERSE vet =M-PRAB ie 

STRS nt: BEEP .1,20: BEEP .1,25: 
BEEP. 20 

PRINT #u;AT VvV,Vvj" PREMI s PER 

UN ALTRO METODO n PER 

FINE PROGRAMMA ": BEEP ot 
BEEP .5,20 

PAUSE v: LET t$=CHR$ PEEK 23560: 
TEES=" FOR Sts<ln!L AND t$ 

<>"s" THEN GO TO 75 

IF t$="s" THEN TNPUREUIE 
GO TO 30 

STOP 

LET nt=v: LET st=v: LET h=/(b-a)./ 


(2*n): LET n1=2*n-u: LET n2=n1-u 


LET x=a+ti* 
NEXT i 


FOR i=u TO nl STEP 2: 
h: LET st=St+FEN f(x): 
LET nt=4*st: LET st=v 
FOR i=2 TO n2 STEP 2: 
h: LET st=st+FN £f(x): 


LET x=a+ti* 
NEXT i 


LET nt=nt+2*st+FN f(a)+FN f(b): 
LET nt=nt*h/3 

RETURN 

LET nt=v: LET h=(b-a)/10 


FOR i=v TO 5: LET j=10-i: LET x= 
a+i*h: LET st=FN f(x): LET x=a+j 
*h: LET st=st+FN £(x): LET nt=nt 
+b(i+1)*st: NEXT i 


240 
250 
300 
310 
Silio 


325 
340 
400 
440 
450 


460 
470 
500 
510 
520 


530 
550 
700 


1405) 


7710 


TS 


TAbe7: 


718 


9 
900 


910 


1000 
1010 
1020 
1030 


1040 
1050 


LET nt=nt*h*5/299376 


RETURN 

LET nt=v: LET h=.5*(b-a): LET si 
gn=1 

FOR l=u TO 2 


FOR i=u TO 6: LET x=sign*g(i)*h: 
LET x=x+h+a: LET nt=nt+h(i)* 

FN f(x): NEXT i 

LET sign=-u: NEXT 1 

LET nt=nt*h: RETURN 

LET h=.5*(b-a): LET nt=FN f(h+a) 


LET 

FOR 
LET x=x+h+ta: 
NEXT i 

LET sign=-u: NEXT l 

LET nt=2*h*nt/9: RETURN 

LET nt=v: LET sign=u 

FOR l=u TO 2 

FOR i=u TO 6: LET q=sign*g(i)+1: 
LET x=a-1+2/q: LET x=FN f(x)/(q 

*q): LET nt=nt+h(i)*x: NEXT i 

LET sign=-u: NEXT 1 

LET nt=nt*2: RETURN 

BEEP .5,20: PRINT OVER U;AT Sil 
8; FLASH t;"Quale scegli "; 
FLASH v;"?";AT 7,18;" RAZR 
5]: RETURN 

BEEP .1,25: PRINT AT 2+m,13;"<-- 

-";AT 2,10; INVERSE ur "Hai 'scelt 

o"; INVERSE v: PAUSE MO 

RETURN 

BEEP .1,20: PRINT OVER u;AT 2+m 
pt<=tSELASH t; "GIUSTO"; 
FLASH v;" ?": RETURN 

BEEP .1,25: BEEP .1,20: PRINT #1 
SATAVI Vi PREMI i CERER CORREGGE 

RE Enter PER CONT 
INUARE " 

PAUSE v: LET t$=CHR$ PEEK 23560: 
IF tS=""0R t$<>"c"AND t$ 

<>CHRS 13 THEN GO TO EVS, 

IF t$="c" THEN PRINT. AT 2+m,13; 
vi Mi ITET t=visG0;.NSUBI 71.0: 
BEEP;:-9,30 GORTONZO 

RETURN 

BEEP .2,20: PRINT FLASH t;AT 10 
,5;"Inf.": PRINT AT 9+2*m,3;(("" 
AND t=u)+(STRS a AND t=v)): 
RETURN 

BEEP .2,25: PRINT AT 10,20; 
FLASH t;"Sup.";AT 9+2*m,18;(("I 
nfinito" AND m=5)+(STR$ b AND m 


sign=u: FOR l=u TO 2. 
i=u TO 4: LET x=sign*c(i)*h: 
LET nt=nt+FN f(x): 


<>5)) AND t=v: RETURN 
DIM b(6): FOR i=u TO 6: READ bli 
): NEXT i 


DATA 16067,106300,-48525,272400, 
-260550, 213684 

DIM c(4): FOR i=u TO 4: 
)\ NENTI 

DATA .1679061842,.5287617831,.60 
10186554,.9115893077 

DIM g(6): DIM h(6) 

FOR i=u TO 6: READ gl(i): READ Nh( 
i): NEXT i 


READ c(i 
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1060 


1070 


1100 
9989 


999] 
9992 


9995 
9994 
9995 
9996 
9997 


9998 
91999 


DATA .1252334085,.2491470458,.36 
78314989,.2334925365,.5873179542 
1+2031674267,.7699026741,.160078 
3285,.9041172563,.1069393259,.98 
15606342,.0471753363 


DATA "SIMPSON ","BODE ITAGA 
USS ","CHEBYSHEV","Estr.Sup." 
RETURN 


LET col=col-u: FOR c=u TO LEN c$ 
: GO SUB 9991: PRINT AT riga+tu,c 
o0l+c;"Q";AT riga,col+c;"U": 

NEXT c: RETURN 

LET z=v: FOR d=v TO 6 STEP 2 
POKE USR "u"+d,PEEK (15616+(8*( 
CODE es(c)-32))+z) 

POKE USR "u"+d+u,PEEK (15616+(8* 
(CODE ‘c$.(c)-32))+z) 

LET'2=2+u: NEXT d 

FOR d=u TO 7 STEP 2 

POKE USR "q"+d-u,PEEK (15616+8*( 
CODE c$(c)-32)+z) 

POKE USR "q"+d,PEEK (15616+8*( 
CODE c$(c)-32)+z) 

LET z=z+u: NEXT d 
RETURN 


INA FUNZIONE 
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Jackson. 


IL PERSONAL COMPUTER 
NELL'’ORGANIZZAZIONE DELLE PICCOLE 
AZIENDE: APPLICAZIONI DEL MULTIPLAN 
COD. 578P L. 29.000 


IL MANUALE DEL BASIC 


COD. 534A L. 45.000 


AMBIENTE UNIX 
COD. 543P L. 19.000 4 


JACKSON 


La biblioteca che fa testo. 


di Ferruccio Mandorli 


Un freddo, razionale, logico cal- 
colatore può occuparsi anche di 
lettere classiche! 


hi ha mai detto che i calcolatori non 

sono utili anche per gli studi umani- 
stici? 
Questo programma è un altro esempio 
della enorme versatilità dei computer in 
generale e del nostro piccolo grande 
Spectrum in particolare. 
Dopo un mare di programmi in cui sia- 
mo stati sommersi da “studi di funzioni” 
presentati un po’ in tutte le salse, ecco 
ora qualche cosa di nuovo per tutti gli 
studenti liceali. 
Personalmente ho finito il liceo già da 
alcuni anni, ma credo (anzi tempo) che 
i professori di latino abbiano ancora la 
crudele consuetudine di sottoporre i lo- 
ro malcapitati studenti a una terrifican- 
te prova ricorente: il compito di verbi! 
Ebbene, “Latino” è un programma che 
potrà aiutarvi a rendere più divertente 
la vostra preparazione, conservandone 
tutta l’efficacia. 
Sono messi a vostra disposizione 40 
verbi, divisi in 10 per ogni declinazione 
latina, ed eventualmente sostituibili con 
semplici modifiche del programma, che 
lo Spectrum declinerà per voi in tutti i 
tempi e tutte le persone italiane e latine. 
Il programma inizia dandovi la possibili- 
tà di vedere quali sono i verbi su cui è 
possibile lavorare, passando poi al pri- 
mo di 3 menu di scelte: 


1° menu 

In questa fase avete la possibilità di sce- 
gliere tra un verbo in latino oppore in 
italiano; potete anche rivedere i verbi 
disponibili oppure terminare l’esecuzio- 
ne. 

Dopo la scelta “italiano” o “latino” il 
programma vi chiederà l’input del ver- 
bo su cui volete lavorare, ovviamente 
nella lingua già scelta. 

Se il verbo richiesto non è in elenco, ciò 
verrà segnalato dallo Spectrum e avre- 
te la possibilità di rivedere i verbi a di- 
sposizione. 

In caso contrario vedrete il paradigma 
del verbo latino, la sua traduzione italia- 
na e la specificazione della declinazione 


DDL L{__{__{_A_L{__Ll_f{_i_ tr. 


1a” 


sia latina che italiana. 
Si passerà quindi al secondo menu. 


2° menu 

Avete ora tre possibilità: tornare al me- 
nu 1 (per cambiare verbo o per termina- 
re il lavoro), oppure entrare in fase di 
lettura (dove lo Spectrum stamperà in 
entrambe le lingue), infine entrare in fa- 
se di esercitazione, in cui il computer 
stamperà nella lingua scelta in partenza 
e voi dovrete scrivere la traduzione. 
Immediatamente dopo la scelta “L”, o 
“E”, si passerà al terzo ed ultimo menu. 


3° menu 

Ancora tre scelte a disposizione: una 
per tornare al menu precedente, una 
per indicare direttamente il tempo su 
cui si desidera lavorare (vedi tabella) ed 
infine un’ultima scelta per la generazio- 


ne casuale dei tempi. 


Esercitazione 

Se siete in fase di esercitazione, lo Spec- 
trum stamperà il verbo declinato nella 
lingua scelta all’inizio, quindi voi dovre- 
te scrivere la traduzione. 

Nello scrivere dovrete seguire le se- 
guenti regole per non incappare in un 
errore, che abbasserebbe il voto finale. 
Non devono essere lasciati spazi bianchi 
prima della trduzione, non si deve la- 
sciare più di uno spazio bianco tra una 
parola e la seguente (esempio: “io lo- 
do”), mentre è permesso scrivere tutto 
attaccato (esempio: “tuavevilodato”). 
Infine l’infinito futuro va tradotto solo 
al singolare (esempio: “amaturum,a- 
m,um,esse”), ricordandosi le virgole, 
così come per il participio futuro (esem- 
pio: amaturus,a,um). 
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Noterete poi che l’input è preceduto 
dalla frase “Verbo 0 per finire”: questo 
perché nel caso in cui le persone da 
tradurre siano' meno di 6 (esempio: ge- 
rundio=4, supino=1) è necessario dare 
zero come input per poter passare alla 
successiva fase di controllo della tradu- 
zione. La fase di controllo è divisa in 
due parti: la prima, operante subito do- 
po il comando “C”, riscrive la traduzio- 
ne esatta; la seconda, operante dopo il 
* comando “ENTER”, segnala gli errori 
commessi con un quadrato lampeggian- 
te in corrispondenza della riga in cui è 
presente l’errore e riscrive la vostra 
versione errata, in colore rosso, nella 
riga sottostante alla riga della versione 
italiana. 
Infine vedrete apparire nella parte alta 


dello schermo, scritto in colore giallo, il, 


vostro voto. 

Se avete delle difficoltà di lettura, o se 
ritenete che i colori usati per la stampa 
siano poco efficaci, potete modificarli 
come meglio preferite, andando a modi- 
ficare poche righe di programma. 


Righe degli INK 


130 INK della stampa dei verbi di- 
sponibili 
1130 INK della stampa dei verbi latini 
1270 INK della stampa dei verbi ita- 
liani 
1500 INK della stampa dei verbi erra- 
ti 


Funzionamento del programma 
Il programma lavora su matrici predefi- 
nite, ed è quindi necessario farlo partire 
con l’auto-start, o con un GOTO 1. Non 
date RUN, o azzererete le matrici, co- 
stringendovi a dover ricaricare il pro- 
gramma! 

Le matrici principali sono quelle delle 
desinenze, degli ausiliari e dei tempi; 
esse sono strutturate nella seguente 
maniera: le desinenze (77 per ogni de- 
clinazione) sono messe una per riga, in 
due matrici, una per le desinenze latine 
e una per quelle italiane. 

Nella matrice dei tempi sono invece 
messi i riferimenti alle righe relative alle 
desinenze desiderate; facciamo un 
esempio: 


1) indicando come tempo “indpr” il 
programma andrà a cercare nella matri- 
ce dei tempi la riga “indpr 0106”, la 
quale indica che le desinenze dell’indi- 
cativo presente si trovano nella matrice 
delle desinenze a partire dalla riga 
1+77*(d-1) fino alla riga 6+77*(d-1), 
dove d indica la declinazione del verbo 
in osservazione. 

In coefficiente 77*(d-1) serve a “scivo- 
lare” sotto alle declinazioni precedenti, 
come occorre fare per esempio con un 
verbo della 3° declinazione. 

Nel caso in cui il tempo richiesto sia un 
tempo composto, al posto della desi- 
nenza si troverà un nuovo riferimento 
per la matrice degli ausiliari; vediamo 
un nuovo esempio; 
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Descrizione delle variabili: 


I$(40,25) matrice contenente l’infinito, il participio e l'indicazione del 
verbo ausiliare dei verbi disponibili 

L$(40,30) matrice contenente il paradigma e la declinazione dei verbi 
latini disponibili 

T$(19,9) matrice dei tempi 

F$(50,8) matrice degli ausiliari 

$(308,7) matrice delle desinenze latine 

N$(231,8) matrice delle desinenze italiane 

F$(10,31) matrice usata per i controlli (non è predefinita) 

R$ stringa contenente la radice italiana del verbo 

U$ stringa contenente il participio italiano del verbo 

S$ stringa-contenente la radice del presente del verbo latino 

Q$ stringa contenente la radice del passato del verbo latino 

C$,B$,K$,P$, 

V$,A$,J$ stringhe di uso vario 

VI variabile della declinazione italiana 

VL variabile della declinazione latina 

Adi i." 


Descrizione del programma 


Linee Commento 

15 POKE per abilitare il nuovo set di caratteri grafici e per 
aumentare il click della tastiera 

20 dimensionamento B$ e C$ 

79-150 routine di stampa dei verbi disponibili 

160 menu l 

180 stop con ripristino del set di caratteri originali 

240 input verbo italiano 

280 dimensionamento R$ 

290 riconoscimento della radice del verbo italiano 

300-320 calcolo della declinazione italiana 

340-370 controllo della disponibilità del verbo richiesto 

400-420 stampa paradigma verbo latino, infinito verbo italiano, de- 
clinazione latina, declinazione italiana 

470 dimensionamento e assegnazione U$ 

500 input verbo latino 

530-560 controllo disponibilità verbo richiesto 

620-640 calcolo declinazione 

650 dimensionamento ed assegnazione U$ 

660-680 stampa paradigma, infinito, participio e declinazione dei 
verbi italiano e latino 

690 dimensionamento R$ 

700 assegnazione R$ 

760 assegnazione S 

790 menu 2 

840 menu 3 

890 input tempo 

950-970 ricerca del tempo nella matrice dei tempi 

990-1090 assegnazione C$, J$, P$ 

1110-1150 stampa latino 

1200-1290 stampa italiano 

1380-1460 controllo della traduzione 

1470 normalizzazione voto e sua stampa 

1480-1510 stampa errori 

1520. dimensionamento F$ 

1530-1570 input traduzioni 

1620-1670 ricerca ausiliare 

1680-1720 segnalazione errori e calcolo voto 


1760-1900 


ricrca radice del passato del verbo latino 


2) richiedendo il tempo “indpp” il pro- 
gramma troverà la riga “indpp 2530”, 
che rimanderà alle righe dalla 25 alla 
30 (sempre moltiplicate per il coeffi- 
ciente 77*(d-1), dove si troveranno i 
valori 01,02,03, ecc. i quali indicano 
che nelle righe 1,2,3, ecc. della matrice 
degli ausiliari trovano: avevo, avevi, 
aveva, ecc. oppure ero, eri, era, ecc.. 


Precedentemente il programma si era 
preoccupato di riconoscere le radici dei 
verbi, sia latini che italiani, a cui ora 
aggiungerà le desinenze trovate nel mo- 
do suddetto, per poi eseguire la stampa 
completa. 

Per quanto riguarda casi particolari, co- 
me per esempio l’infinito futuro, il com- 
portamento del programma è legger- 


mente diverso, ma potrete farvene 
un’idea dando un’occhiata alle specifi 
che di programma e al listato, che è 
stato ordinato con il programma Spec- 
trum renumber, apparso sul numero 3 
di questa stessa rivista, e che appare 
quindi abbastanza chiaro. 


Modifica caratteri 

Avrete certamente notato che il pro- 
gramma funziona con un nuovo set di 
caratteri grafici. Cercherò ora di spiega- 
re come ciò è stato possibile. 

Innanzi tutto occorre sapere che lo 
Spectrum ha in dotazione un set di 127 
caratteri, collocati nella memoria ROM 
a partire dalla locazione 15360. I primi 
31 caratteri sono però di controllo, e 
quindi inutilizzabili dall'utente; ne segue 
che il set è praticamente formato da 96 
caratteri, a partire dallo spazio bianco 
fino al carattere di copyright, memoriz- 
zati nella ROM a partire dalla locazione 
15616, fino alla locazione 16386. 

Lo Spectrum è poi dotato di una varia- 
bile di sistema chiamata CHARS (vede- 
re anche il manuale) che contiene il va- 
lore della locazione di inizio del set di ca- 
ratteri. 

È quindi possibile creare un nuovo set 
di caratteri e porlo in memoria RAM, 
per poi modificare il valore di CHARS, 
adeguandolo alla posizione di questo 
nuovo set grafico. Nel nostro caso i ca- 
ratteri modificati sono solamente i nu- 
meri e le maiuscole. Per fare questo ho 
operato nel modo seguente: 

ho trasferito tutto il set originale (lungo 
768 byte) in una nuova zona della RAM 
libera (quella a partire dall’indirizzo 
53248) ed ho poi modificato i numeri e 
le minuscole, cambiando i valori delle 
locazioni da 53768 a 53975 per le mi- 
nuscole, e da 53376 a 53455 per i nu- 
meri. ‘ 

Ho quindi creato un nuovo set grafico 
a partire dalla locazione 53248, e per 
abilitarlo ho modificato CHARS con 
due POKE del tipo seguente: 


POKE 23606,a —POKE 23607,b 


dove: 

a=(53248—256)-b*256=0 
b=INT((53248—256)/256)=207 
(provate a battere POKE 23606,0: PO- 
KE 23607,207 prima di listare il pro- 
gramma). 

Per tornare al set originale è invece ne- 
cessario riportare CHARS al suo primi- 
tivo valore, effettuando 


POKE 23606,0:POKE 23607,60 


Per salvare il nuovo set grafico bisogna 
digitare 


SAVE“ "CODE 53248,768 


Inserimento nuovi verbi 

Potete sostituire dei verbi, oppure inse- 
rirne dei nuovi, modificando o rifacendo 
totalmente le matrici dei verbi, tenendo 
conto delle seguenti limitazioni: 

1) le matrici devono chiamarsi 1$ per i 


cr 


Tabella dei tempi 

INDPR indicativo presente 
INDIM indicativo imperfetto 
INDFS indicativo futuro semplice 
INDPE indicativo perfetto 

INDPP indicativo piucheperfetto 
INDFA indicativo futuro anteriore 
CONPR congiuntivo presente 
ONIM congiuntivo imperfetto 
CONPE congiuntivo perfetto 
CONPP congiuntivo piucheperfetto 
INFPR infinito presente 

INFPE infinito perfetto 

INFFT infinito futuro 

IMPPR imperativo presente 
IMPFS imperativo futuro 

PARPR participio presente 
PARFT participio futuro 

GER gerundio 

SUP supino 


E bene che ognuno di voi ricordi che 
alcuni tempi latini hanno più di una tra- 
duzione italiana; la scelta di un tempo 
piuttosto che un altro (esempio: il con- 


del tutto arbitraria, come quella di iden- 
tificare i tempi con la loro espressione 
latina (esempio: perfetto piuttosto che 
passato remoto). 


giuntivo piuttosto che il condizionale) è 


Valore decimale del nuovo set di caratteri 


Numeri 

“O” O 60 102 110 118 102 600 
“1° 0 28 60 108 12 12 12 0 
«2° O 126 70 6 62 64 126 0 
“gr O 124 6 60 6 6 1240 

“4” 0 6 14 22 38 12760 

21 1 O 126 96 124 6 6 1240 
“6” 0 56 96 124 102 102 60 0 
al ig O 126 126 6 12 24 480 
“8g” 0 60 102 60 102 102 60 0 
“9” 0 60 102 102 62 6 600 
Lettere 

Sa” O 126 98 98 126 98 98 0 
“b” O 126 98 126 98 98 126 0 
“© 0 126 96 96 96 96 126 0 
“d” O 124 98 98 98 98 124 0 
“e” 0 126 96 124 96 96 1260 
uf” 0 126 96 124 96 96 96 0 
“q” O 126 96 96 110 98 1260 
“h” 0 98 98 126 98 98 98 0 

ri ig 0 24 24 24 24 24 24 0 

SI 06663838620 

“E? O 104 112 96 112 104 100 0 
ie led 0 96 96 96 96 96 126 0 
“m”- 0 98 118 106 98 98 98 0 
“n” 0 98 98 114 106 102 98 0 
“o” è 0 126 98 98 98 98 126 0 
“p” 0 126 98 126 96 96 960 
“q” 0 126 98 98 106 106 126 4 
Up? O 126 98 126 104 100 98 0 
“s” O 126 96 126 2 2 1260 
«E O 126 24 24 24 24 24 0 
“u” 0 98 98 98 98 98 126 0 
“y” 0 98 98 100 100 104 56 0 
“w” 0 66 66 90 90 126 36 0 
wi 0 98 52 24 28 38 660 

Su? 0 66 38 28 24 48 96 0 

“n” O 126 126 8 16 32 126 0 
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verbi italiani e L$ per i verbi latini, e 
devono avere le dimensioni I$(40,25), 
L$(40,30); 

2) alla stessa riga delle due matrici deve 
corrispondere lo stesso verbo (esempio: 
I$(1) = “amare, amato 0”, L$(1) = “1a- 
mo,as,avi,atum,are”); 

3) nella matrice I$ vanno inseriti per 
ogni riga, a partire dalla prima colonna, 
l’infinito e il participio del verbo, inter- 
vallati da una virgola. 

Alla colonna 25 di ogni verbo si deve 


inserire “0”, se il suo ausiliare è “ave- 


su 


‘re’, e “1”, se il suo ausiliare è “essere”; 


4) nella matrice L$ vanno inseriti in ogni 
riga i paradigmi dei verbi scritti tutti di 
seguito ed intervallati da virgole, tenen- 
do presente che se il perfetto ha una 
desinenza irregolare, si deve scrivere 
anche la radice. 

Inoltre si deve inserire nella prima co- 
lonna il numero corrispondente alla de- 
clinazione latina del verbo (esempio: 
“lamo,as,avi,atum,are”, “3cedo,is,ces- 


si,cessum,ere”). 

Ricordarsi che per rispettare le dimen- 
sioni delle matrici la lunghezza dei para- 
digmi non deve superare i 29 caratteri 
virgole comprese. 

E inutile ricordare che per il buon fun- 
zionamento del programma i verbi inse- 
riti devono essere regolari, sia in latino 
che in italiano. 

A questo punto credo proprio di avervi 
detto tutto, e quindi non mi resta che 
augurarvi ...buon studio!!! 


’ 


10 PAPER 1: INK 7: BORDER l: 260° CF.LLEN' vS<4 THEN! /G04TO%:250 
BRIGHT da VCLS 270 LET vi=03SEBT#vid=0 
15 POKE 23606,0: POKE 23607,207: 280 DIM rS(LEN v$-3) 
POKE 23608,50: POKE 23609,50 290: EEP.EeS=vS (ITO LEN .vS-3) 
20. DIM bS$:((4);: DIM es$'(3) 30/07 TE*#v:Si(LENvS<2)="a" ‘THEN. LET vi 
30 PRINT #0; INK 5;AT 0,0; "vuoi ved =] 
ere i verbi";AT 1,0;"a disposizi 310 IF v$(LEN v$-2)="e" THEN LET vi 
one ? (s/n)" =2 
40 IF INKEYS="n" THEN. CLS 320 IF v$(LEN vS-2)="i" THEN LET vi 
GO TO 160 si 
50: IF INKEYS="s5cTHENIb LET 1=0: 330 IF vi=0 THEN GO TO 250 
LET a=l: LET b=20: Go TO 70 340 FOR i=1l TO 40 
60 GO TO 40 350 IF v$=IS(i, TO LEN v$) THEN 
L0VCLS-.3: PRINT AT 0,5 RLASHEM: GO TO "370 
INK 5;" verbi a disposizione "' 360 NEXT i 
': FOR i=a TO b 370 IF i>40 THEN PRINT AT 19,0; "il 


80 FOR k=1 TO 29 verbo "; FLASH 1; INK 4;v$; 
90 IF LS(i,k)="," THEN. LET-A=1+1: ELASH 0pINR=e* nomea dispos 
TE*1=2\THEN' “LET 1=0%, ORTO 10 izione!”s GONO 30 
380 @LS 
100 NEXT k 990 VEETRVI=VABL LS, 1) 
IO, EOR/o=13 TO.125: LE ES) #00 PRINT INK. 4AsvSo*' INK. 3:5L$(1,2 
THEN GO TO 130 TOM#30)) 
V2'0MNEXNTI © 410 PRINT !''' 
130 SPRINT FINK 4 TILT, 021007 420 PRINT INK 3;vl;"' declinazione 
TINK 20 SINKE Si 210) latina";'*; INK 4;vi;"' declinaz 
cla sE 1 ione italiana" 
140 PRINT #0;AT 1,0; INK 5;"Premi en | 430 FOR j=1 TO 25 
teri: PAUSE: !0.:. CES 440 IF I$(i,j)="," THEN. LET a=j+1 
150 IF a=l THEN LET a=21: LET b=40: 450 IF bs (1,])=" ‘ ‘PHENS* BET b=j-1: 
GOTTO" GO TO 470 
Ro:0PRINPIATO.1 1 TERASH7 Ls WENK 4658) 460 NEXT j 
menu. do " 470 DIM u$(b-a+1): LET u$=IS(i,a 
ZO SPRINT tes cegli0to ENKS4;: di TO b) 
isdital'rano! Ubs INKi37" 480 GO TO 710 
J=latimo!!UtTNK 5% 490 CLS 
v=visione verbi"'' INK 6;" 500 PRINT AT 1,1; INK 3;"input l' pe 
9=fine lavoro" rsona singolare"''" presente del 
verbo voluto" 
180 IF INKEYS="9" THEN POKE 23606,0 510 INPUT v$ 
: POKE 23607,60: STOP 520 IF v$="" THEN GO TO 510 
90 SIERWFINKEYS="1=<THENN< LET mal: 530.EORSi=li* TO 40 
GO TO 230 540 ‘IF Vv$=L$S(i,2 TO LEN v$S+1) THEN 
200 IF INKEY$="1" THEN LET m=2: GOTTO 570 
GO TO 490 550..NEXTa 
210 IF INKEY$="v" THEN LET 1=0: 560 IF i>40 THEN PRINT AT RO ta 
LET a=l: LET b=20: GO TO 70 verbo "; FLASH 1; INK 3;v$; 
220 GO TO 180 FLASH 0; INK 7';"non e' a dispo 
2300CES sizione": GO TO 30 
240 PRINT AT 1,1; INK 4;"input verbo |570 LET vl=VAL L$(i,1) 
all'infinito! 5.80; (\FOR*j=1" TO: 25 
250 INPUT v$ 590 IF I$(i,j)="," THEN LET a=j 
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600 


610 
620 
630 
640 
650 


660 


670 
680 


690 


800 
810 
820 


830 
840 


850 
860 
870 
880 
890 
900 
910 
920 
93.0 


940 
950 
960 
970 


980 
990 


TEMS' CERO PHENIEER bag: 
GO TO 620 

NEXT j 

IF IS(1,a-3)="a"CTHEN..LET/Vi=1 
IF I$(i,a-3)="e" THEN LET vi=2 
TE. ISilii,a-3)="1" THEN LET‘vi=3 
DIM u$(b-a): LET u$=IS(i,a+l 
TOCbD) 

GLS..% PRINT. INK 356 (72 TO 25) 
TRI INA SES (i POS) 

PRINT UU! 

PRINT: INK Iavds!U idecelGnazione 
latina” ‘perINE 4 pvildeclinazi 
one italiana" 

DIM r$(a-4) 

CET AS=TS.(d, 0 STO a-4) 

LET z=i 

FOR £=1 TO 30 

LE: \ES.(£)=",!" ‘THEN ‘GO TO ‘750 
NEXT £f 


LET 1=f-2-(ABS SIN (PI/2*(VAL L 
$(i,1)-1))) 

LET s$=L$(i,2 TO 1) 

GO SUB 1750 


PRINT #0; INK 5;AT 0,0; "premi en 
tera PAUSEN0 
CLS : PRINT AT 0,10; INK 65 
FLASH 1;" menu' 2": PRINT '!!"." 
Sceglanti mINkeo-teeelWper isiicettu 
ra e per eserc 
itazione 0 per menu' 
1" 
IF INKEYS="0" THEN CLS: 
GO TO 160 
IF INKEY$="1" THEN LET x=1: 
GO TO 840 
IF INKEYS="e" THEN LET x=0: 
LET c=0: GO TO 840 
GO TO 800 
CLS : PRINT AT 0,10; FLASH es 
INKM6,00 menu!::34- PRINT Ut 
SCEguise  INK15;: WE -Eempoxinda'e 
ato v=tempi casua 
do O=menu'!' 2" 


IF INKEYS="t" 
IF INKEYS="v" 
IF INKEYS="0" 
GO TO 850 
INPUT "tempo ";a$ 
DIM c$(3) 
LET vot=10 
CLS 
PRINT AT 0,15; 
$ 
PRINENATEO 0 INK: "latino! 
PRENT'CATO| dp INK 4» Italiano": 
PLUOTR058: DRAW 255,0 
FOR i=1l TO 19 
IF a$=t$(i, TO LEN a$) THEN 
GO TO 990 
NEXT i 
IF i>=19 THEN GO TO 890 
TEGtS: (dr = ts NSTHENO LEI = Mate 


THEN GO TO 890 
THEN GO TO 1730 
THEN: GO%TONZ9I0 


INK 5;"tempo: ";a 


GO TO 1030 


KO.00-TRESTES (Oro 5) Lie APHEN 
DIM c$(9): LET c$="stare per": 
GO TO 1030 
VOTOLTE ES (yyl.)="GIL#0RIT ES, 1)! p" 
THEN, , LET "eSs="che": (G0.TO 1030 
020 LET'cS=!! di 
1030 IF m=1 THEN GO TO 1180 
1040 LET d$=t$(i,4 TO 5) 
1050 IF t$(i,l)="s" THEN DIM p$( 
LEN w$): LET p$=w$: GO TO 1100 
TO60 IFES(i, TO .5)="parft". THEN 
DIM p$ (LEN w$): LET p$=w$: 
LET j$="urus,a,um": LET t=l: 
GO TO 1100 5 
T'070. TE tSsli, TO 5)c"infft'e THEN 
DIM p$ (LEN w$): LET p$=wS$: 
LET jS$="urum,am,um esse": LET t 
=ila (GO TO 1100 
08.0 TEFAS=""pe!roRtd$=!ppU) OR .d$s="fa 
THEN DIM p$S(LEN q$): LET p$=g$ 
rUGOUTO. 1A00 
1:0:9°0°TE»ds=!"! pr" ‘OR d$=" im oRFas="£s® 
THEN DIM p$S(LEN s$): LET p$=s$ 
PIO0VLETSK=1 
1110 FOR J=VAL €Si(1;62 TO77)a (vil) 77 
TO*VAL dtES:(1,80 TONI) +7 119) #77 
1120 IF t=1l THEN PRINT AT k*3,0; 
INKO 3D9s46» (LEmrt=0ì (60 TO 114 
0 
1130 PRINT AT k*3,05£. INK 35 Perizò (19) 
1140 LET k=k+1 
1150 NEXT j 
1160 IF x=0 AND c=0 THEN GO SUB 1520 
PLT70 TE‘m=1 THENSVGO0t T071330 
VIBO LET J=VAL tS(i,6 TO°-7)4A (viL1)#77 
1190 LETTw=0: LET k=1 
1200. FOR j=VAL tS(i,6 TO 7)+(vi21)*77 
TO VAL t$(1,8 TO 9)+(vi-1)*77 
1210 LET w=w+1 
1220 LET b$=m$ (k) 
1230 IF j-(77*(vi-1))>60 THEN LET b$ 
1240 DIM p$(8): LET p$=n$(j): LET k$= 
rs 
IZ5:0-REP n$(j,1)=" " THEN GO SUB 1620 
1260 IF t$(i,l)="g" THEN LET c$=g$(w 
) $ 
1270 PRINT AT k*3+1,0; INK 4;c$;" ";:b 
Sp "ot7Eks:ps 
1280 LET k=k+]1 
1290 NEXT j 
300 LRRAKS=r$ 
1310 IF x=0 AND c=0 THEN GO SUB 1520 


IF m=1 THEN GO TO 1040 

PRINT #0;AT 0,0; INK 5;"premi en 
ter": PAUSE 0 

IF x<>0 THEN GO TO 840 
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1350 
1360 


LISIZAO) 
1380 
1390 
1400 
1410 


1420 
1430 


1440 
1450 
1460 
1470 


1480 
1490 


1500 


1510 
1520 
1530 
1540 


1550 
1560 
1570 
1580 


1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 


1670 
1680 


1690 
1700 


1710 
1720 


DIM e(10) 
PRINT #0;AT 0,0;" 
ULI 


LET d=1 

FOR k=1 TO q-1 

LET s=1 

FOR y=0 TO 30 

IF SCREEN$ (k*3+m-1,y)=" " 
THEN NEXT y 

IF £$(k,s)=" "THEN. LET s=s+1 
IF SCREENS (k*3+m-1,y)<>£$(k,s 
) THEN GO TO 1680 

LET s=s+1 

NEXT y 

NEXT k 

PRINT=ATP 1, lb» INK..6:!voto;s. UU 
INT (vot*100)/100 

FOR d=1 TO 10 


IF e(d)=0 THEN PRINT #0;AT 0,0; 


INK 5;"premi enter": PAUSE 0: 
LET c=0: GO TO 840 
PRINT AT (e(d))*3+2,0; INK 2;£S$( 
e(d)) 
NEXT d 
LET c=1: DIM £$(10,31) 
FOR q=1 TO 6 
INPUT INK 5;"verbo 0=fine ";£$ 


(q) i 

ER SES(a, 1) =" STHEN, 60, TO 15:80 
PRINT AT q*3+m-1,0;f£$(q) 

NEXT q 

PRINT #0;AT 0,0; 
nesoildos 

TE INKEYS<>"c" 
0 

PRINT #0;AT 0,0;" 


INKTS5""c iper ico 


THEN GO TO 159 


RETURN 

REM ausil 

DIM p$ (LEN u$) 

LET p$=u$ 

TE IS:(2,25)="1" AND. k>2 THEN 
LET p$ (LEN u$)="i" 

LET k$=e$((VAL n$(j,2 TO 3))+( 

VATISESL( Zi, 2:59) 25) TOMBE 

RETURN 

PRINT AT k*3+m-1,31; 
{SG8}" 

LET vot=vot-10/(q-1): 
THEN LET vot=0 

LET e(d)=k 

LET d=d+1 

GO TO 1460 


FLASH 1;" 


IF vot<o 
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1730 
1740 
7:50 
1760 
1770 
1780 
1790 
1800 
1810 
1820 


1830 
1840 
1850 
1860 
1870 
1880 


1890 
1900 


PREMI 


LET a$=tS(INT (RND*19)+1, TO 5) 
GO TO 900 
LET w=0: LET c=0 


FOR*h=1 \'T0!125 
IF L$(i,h)="," 
IF c=2 THEN 
IF c=4 THEN 
NEXT h 
LET h=h-w-1 
TF°‘h>3'. THEN (LET igS=L Sii ,,w+1 

TO w+h-1): GO TO 1840 
LET q$=S$+L$(i,wt1 TO w+h-1) 
LET w=w+h+2: FOR h=w TO 30 

TE LS(i,b)=", "THEN! IGO! SITO: N:870 
NEXT h 
LET h=h-w 

IF h>4 THEN LET wS=LS(i,w TO w+ 
h-3): RETURN 
LET wS=SS+LS(i,w TO w+th-3) 
RETURN 


THEN ..LET c=c+1 
LET w=h: LET c=3 
GO TO 1810 


IHDFR 


TENFPO 
BHO 


CONBRTTO 


CONERTTI 


COHBRATTE 


CONBRATTIRNO 


COMBRTTETE 


CONnNBRATTONO 


ENTER 


®000000000000600000000000000000000000 
“Vorrei contribuire anch’io”. 
Per sostenere il C.A.F. vi invio 


Dietro un bambino Segnaliamo 
maltrattato L. 10.000 L. 25.000 L. 50.000 ai Servizi Sociali 

”% L. 100.000 L. 500.000 DEE salina e 
c’è sempre Ù 7 pi del Territorio i casi 

solia i dei D) Tramite assegno bancario intestato C.A.F. x e 

nea famiglia In CTISI. Via V. E. Orlando 15, 20142 Milano, che vi invio, £ di maltrattamento. 
E impossibile unito a questo tagliando. La prima cosa da 
stabilire con O Tramite versamento sul C.C.P. n° 22349203 intestato C.A.F. fare: segnalare ogni 


Via V. E. Orlando 15, 20142 Milano. 
Nome e Cognome 


caso di maltratta- 
mento di cui siamo a 


esattezza quanti 
bambini in Italia 


subiscono violenze. IZ AA o A conoscenza o di cui 
Tanti, purtroppo. CAferorzora az iii abbiamo il fondato 
Ma Mea SoSa è certa: ARIMA OOO: SII EE ei sospetto. . se 
ca Veri ras 0881 Attendo: ricevuta e tesserino di ‘‘Sostenitore’’ del C. A 4F. hedreri =g sera 
un bambino subisce 00000000000 0000800800000000000000000 Sociali del Territorio 
e impara, da grande dal lunedi al venerdì, 
la ritorcerà contro la società. dalle ore 9 alle ore 12 (troverete i numeri di 
Bisogna intervenire, e subito: agendo sulle cause. telefono su Tuttocittà), oppure al Tribunale per i 
Intervenendo sulla crisi familiare che è Minorenni (chiedendo del giudice di turno) dal 
sempre alla base dei maltrattamenti lunedì al sabato dalle ore 9 alle ore 13, telefono 

a un bambino. 4988001/2/3: oppure al C.A.F., a questi numeri di 


telefono 02/8265051 /2, che rispondono 24 ore 
su 24, 7 giorni su 7. 


Sosteniamo il C.A.F. 


Il C.A.F. è il primo Centro di Aiuto al Bambino 
Maltrattato e alla Famiglia in Crisi, sorto in 
Italia con lo scopo di intervenire nei casi di 
i maltrattamento. 

Oggi, nella sua nuova sede più grande e attrez- 

zata, accoglieprovvisoriamente i bambini mal- 
trattati, contemporaneamente svolge un’azione 
terapeutica sulla famiglia per ripristinare l’equili- 
brio e reintegrare il bambino nel suo ambiente. 


Il C.A.F. è un’istituzione privata che opera in 

collaborazione con i Servizi Sociali, con i 

supporti messi gratuitamente a disposizione 
dal Comune di Milano, e con i contributi 

finanziari volontari dei cittadini. 
Contribuisci anche tu, utilizzando il 

tagliando. È un gesto necessario, per 

i bambini maltrattati, per te che 
vuoi fare qualcosa di concreto 

contro la violenza. 


| UN BAMBINO  < 
MALTRATTATO OGGI» 
i SARÀ UNUOMO 
VIOLENTO DOMANI, 


ACCIAMO QUALCOSA | 
p RIMA. Ù ì C.A.F. 


s CENTRO DI AIUTO 
a AL BAMBINO MALTRATTATO 
3 E ALLA FAMIGLIA IN CRISI 


Spazio gratuito offerto da J.soft 


di Gianni Marion 


Per poter gestire le classifiche 
dei campionati di calcio basta 
uno Spectrum 16K! 


uesto programma permette di ag- 

giornare le classifiche dei campio- 
nati di calcio nazionali, dalla serie A alla 
C2, fornendo per ogni squadra 23 diffe- 
renti informazioni su punteggi e dati di 
possibile interesse, per un totale di 
3312 informazioni. 
All’inizio del programma sono presenta- 
te 6 opzioni, che permettono di aggior- 
nare, correggere o visualizzare le classi- 
fiche e di caricare o salvare i dati relativi 
alle varie giornate e i nomi delle squa- 
dre. 
Esiste inoltre una procedura di “inizializ- 
zazione” che permette di azzerare la 
classifica della serie prescelta, predi- 
sponendosi a ricevere i nominativi delle 
squadre (operazione che dovrà essere 
effettuata all’inizio del campionato). 
Le opzioni che vengono presentate in 
ogni stadio del programma sono otteni- 
bili premendo il tasto corrispondente, 
riportato a fianco dell’istruzione in IN- 
VERSE. 
Il programma è in un loop continuo e 
riparte senza difficoltà dalla linea 8995. 
Per salvarlo basta digitare RUN 9999. 
“Classifiche dei campionati” utilizza 
quattro routine in linguagggio macchina 
di 474 byte (alloggiati parte nel buffer 
della stampante e parte sopra RAM- 
TOP per esigenze di spazio) che vengo- 
no generate mediante il programma 
“machine code” e poi salvate in coda al 
programma principale (sulla cassetta, 
comunque, troverete il programma già 
funzionante). 
In particolare una delle routine ordina 
le classifiche secondo uno dei 20 para- 
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Descrizione del programma 


Linee 
1-55 
1-30 
35-40 
45-55 
1000-70 
1010-30 
1040 
1040-70 
2000-4020 
2000 
3000 
4000 
5000-50 


5000 
5010-20 
5030-50 
6000 
6000 


7000 
8000-40 
8000-100 


Commento 

AGGIORNAMENTO 

controlla il cursore 

seleziona le squadre 

riceve il risultato e aggiorna le classifiche 
SELEZIONE SERIE 

inizializza le variabili caratteristiche 
predispone i parametri per le routine L/M 
ritorno subroutine 

CARICA E SALVA I DATI 

scelta nomi o classifiche 

salva 

carica 

CORREZIONE ERRORI/ANDAMENTO IN CASA E 
TRASFERTA 

scelta squadra 

scelta dato da correggere 

correzione 

INIZIALIZZAZIONE 

azzera la classifica e riceve i nomi delle squadre della serie 
prescelta 

INTESTAZIONE 

VISUALIZZA LE CLASSIFICHE 
scelta classifica 


metri a scelta (linea 8110), un’altra vi- 
sualizza le classifiche con i riepiloghi ge- 
nerali (linea 8120), una terza esegue 
l'aggiornamento dei dati (linea 55) e 
l’ultima azzera gli spazi destinati alle 
classifiche (linea 6000). 

I dati sono memorizzati a partire dalla 
locazione 31040 nel seguente ordine 
per ogni squadra: vinte, pareggiate, 
perse, reti fatte e subîte in casa, e di 
seguito, nello stesso ordine, per le parti- 
te in trasferta; è poi memorizzato il tota- 
le dei punti delle ultime cinque giornate 
e quelli delle ultime quattro moltiplicati 
ciascuno per un opportuno fattore. 
Aggiornando le classifiche, appare nella 
parte bassa dello schermo un cursore, 
che può essere posizionato sulla squa- 
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dra desiderata con le frecce 6 e 7 (6 lo 
sposta sulla squadra successiva, 7 su 
quella precedente). 

Una volta rintracciata la squadra che 
gioca in casa si deve premere ENTER 
e ripetere l'operazione sulla squadra in 
trasferta, dopodiché sarà sufficiente in- 
serire il risultato della partita, per il qua- 


(i 


le non viene visualizzato nessun cursore 
(non pensate che il programma si sia 
bloccato!). 

Nella routine di correzione quando ven- 
gono richiesti i punteggi delle ultime 5 
giornate bisogna inserirli consecutiva- 
mente, cominciando dal meno recen- 
te. 


";AS(PEEK VAL "23307");" 


"PEBK'VAL: "23331" 82 PEEK 


programma principale VAL "23332": LET L=L-K: NEXT Fi 
1 GO SUB VAL "7"*W: PRINT "SERIE " PRINT #0;AT X,0;C$: PAUSE O: 
:S$;AT VAL "16",0;" "; INVERSE X CAS O MS CIHBRIS ON) 
;"6":: PRINT " AVANTI", 60 GO TO VAL "55 
INVERSE X;"7";: PRINT " INDIETR 1000"(GO SUB VAL*77*Ws "IF bseri" 
OTRA ZIA. ENTER per selezionare"'" -R IHEN PRINT "SQUADRE" 
- in caso di errore"! 'ps PO0S5-PRINDTtetime TNVERSEIX=X5: 
3 LET L=0: FOR F=X TO R/VAL "2" a RM Iaia An, 
5 LET L=L+X*(L<R): PRINT #0;AT X,0 O ni 
3A$ (K+X);" ";A$ (K+X);" ", E B sUINVERSETX> W3loe 
E Ag di pia PRINT SERIE Cl GIRONE A"!' 
10 IF INKEY$="U" THEN GO TO W Pi EOSAVERDB A, e ie PREGIO I 
15 LET I=K+L: PRINT #0; FLASH X; de ig ISO i 
4 OA a a lele INVERSE X;"5";: PRINT SERI 
INKEY$=CHR$ VAL "13" THEN E €2 GTRONE AUT î INVERSE X;" 
SL SL} PRIVE oo SERIE, CP GIRONE, 
—_ n - 14 ro 
20 ca 6" THEN LET L=L+X-R* SERIE C2 GIRONE C"''n n. 
25 IF INKEY$="7" THEN LET L=L+-X+R INVERSE X;"8";: PRINT " SERI 
*(L=X) 
30 GO TO B-X-X 
35 POKE VAL "23318",I: LET G=VAL "4 
0": LET J=B+X: PRINT #0;AT X,0;A 
$(I);" - ";: LET L=X: GO TO B-X- 
x 
40 POKE VAL "23307",I1: PRINT #0; 
AT X,J;A$(I) 
45 PAUSE 0: LET J=CODE INKEYS:: 
IF J<KCODE "0" OR J>CODE "9" 
THEN LET L=0: GO TO VAL "5" 
50 PRINT #0;AT X,B+B;CHR$ J;"-";: 
POKE VAL "23331",VAL CHR$ J: 
PAUSE O: LET J=CODE INKEY$: 
IF J<KCODE "0" OR J>CODE "9" 
THEN PRINT #0;AT x,B+B;" ": 
GO TO VAL "45" 
55 PRINT #0;CHRS J: IF J>CODE "/" 


AND J<CODE THEN 


USR VAL "23306": 
VATI 231918 


POKE VAL " 
23332" ,VAL CHR$ J: RANDOMIZE 
LET L=PEEK 
PRINT AT F+X+X,0:;A$ 
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E C2 GIRONE D"''"PS: PAUSE O: 
LET J=CODE INKEY$-VAL "48": 
IF J=VAL "37" THEN GO TO VAL " 
9"*W 


1010 LET R=VAL "16": IF J<=X OR J> 
VAL "8" THEN LET K=0: LET S$="A 
": GO TO VAL "1040" 

1020 IF J=X+X THEN LET K=R: LET R= 
VAL 720! LET SS="B" 

1030 IF J>X+X THEN LET R=VAL "18": 
LET K=R*(J-X): LET S$=NS$(X+(B-X 
)*(J-VAL "3") TO (B-X)*(J-X-X)) 

1040 POKE VAL "23297",K: POKE VAL "30 
856",R: IF L$="C" THEN GO TO 
VAL "8"*W 

1050 IF L$="I" THEN RETURN 

1060 IF L$="E" THEN GO TO VAL "5"*W 

MOMO CLS: GO TOO 


2000 GO SUB VAL "7"*W: PRINT "'''" "; 

INVERSEGX#"N"!:;* PRINT" NOMI 
SQUADRE"!"" "; INVERSE X;"D";: 
PRINT" CLASSIFICHE"! "PS: 


PAUSE O: IF INKEYS<>"U" 
THEN RETURN 
2010 GO TO VAL "9"*W 
3000 GO SUB W+W: IF INKEYS="N" THEN 
SAVE "SQUADRE" DATA AS() 
3010 IF INKEY$="D" THEN SAVE "CL" 
CODE VAL "31040",VAL "1728" 
3020 GO TO W+W+W 
4000 GO SUB W+W: IF INKEYS="N" THEN 
LOAD "SQUADRE" DATA AS () 
4010 IF INKEY$="D" THEN LOAD "CL" 
CODE 
4020 GO TO VAL "4"*W 
5000 GO SUB VAL "7"*W: FOR F=X TO R 
STEP X+X: PRINT INVERSE X; 


CHR$ (CODE "@"+F):;: PRINT * ":;AS 
(F+K), INVERSE X;CHR$ (CODE "A"+ 
E) PRINDOI SAS CERRI): 


NEXT F:, PRINT AT VAL "21",VAL " 
6";P$: PAUSE O: LET J=CODE 
INKEY$+K-CODE "@": IF J<=K OR J> 
K+R THEN GO TO W 

5010 GO SUB VAL "7"*W: PRINT 
INVERSE X;"N": PRINT '',"IN CAS 


A FUORI (LI "VINTE" um PARI muy "PE 
RSERUURATTEe e BIPENee POTUL 
TIME SS CGIUUIps:SEETSI-J*B+VAL " 


31028": LET L=1I+B-X 
5020 PRINT AT X,X+X;A$(J): PRINT #0; 
ATLO,OrRABINZALIS st Hg 
3 LET G=VAL 6": FOR F=0 TO 
VAL "9": PRINT AT G,VAL "17"+ 
VAL "10"*(F>=VAL "5"); INVERSE X 
SiR: PRINDE CRI: PERRS EEE) i 
LET G=G+X+X-VAL "10"*(F=VAL "4" 
): NEXT F: PRINT INVERSE X;AT G 
AVATI 220 AVE PRTNPe i PEER 
L-X);" ": PAUSE O: LET G=CODE 
INKEY$-CODE "0": IF G<O OR G> 
VAL "17" AND G<>VAL "30" 
THEN GO TO VAL "5"*W 
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5030TE 'G>VAL "9" AND G<S>VAL 8308 
THEN PRINT #0;AT 0,0; "inserire 
i pt. delle 5 giornate": 

PAUSE O: LET G=CODE INKEYS- 
CODE "0": LET G=G*(G>=0 AND G<=X 
+X): POKE L,0: POKE L-X,G: 

PRINT #0;G;: FOR F=INT PI TO O 
STEP -X: PAUSE O: LET G=CODE 
INKEY$-CODE "0": LET G=G*(G>=0 
AND G<=X+X): POKE L,PEEK L+tG* 
VAL "4"tF: POKE L-X,PEEK (L-X)+G 
CPRINTOFOSttONe Gee ENEXTDSE: 

GOSTORVAL 5020! 


5040 IF G=VAL "30" THEN INPUT "NOME: 
POLI NES ASI) GONTO VAL "5020" 


5050 INPUT ( FLASH X;G; FLASH 0;" ins 
erire il valore esatto:"); 
LINE M$: LET F=VAL M$*(CODE MS 
>=CODE "0" AND CODE M$<=CODE "9" 
): POKE I+G,F*(F<CODE "d"): 
GO TO VAL "5020" 
6000 GO SUB W: RANDOMIZE USR VAL "307 
82": GO SUB VAL "7"*W: PRINT "SE 
RIE St OR TF=XATO TR: 
INPOER(E O ch) RINECAS'(RE): 
PRINT F;". ";TAB VAL "4":AS(K+F 
): NEXT F: PRINT #0;C$: PAUSE O: 
GO TO VAL "6"*W 
7:0/00CESISPRINTIATIO VAL 3 
FLASH X;L$: RETURN 


8000 GO SUB VAL "7"*W: PRINT ''" "; 
INVERSE X;"G";: PRINT " GENER 
ALE IN ORDINE DI PUNTI"!!'" ": 
INVERSE X;"V";: PRINT " PARTI 
TE VINTE"!''" "; INVERSE X;"N";: 
PRIN: PARTITE PAREGGIATE""' 
MAIS INVERSETX Ple DPITEN'Dol P 
ARTITE PERSE""'" "; INVERSE X;"F 
Miane PRRIONTE RETI SEGNATE"'!"" " 
A CINVERSE XpelSlio PRENDO RETI 
SUBITE"!!" "; INVERSE page 
PRINT " MEDIA INGLESE"'"" "; 
TINVERSBAX biz SPRINT Pea. 2U 
LTIME 5 GIORNATE"'''P$ 


8010 PAUSE O: LET MS$=INKEYS: IF M$="U 
USTHENSE GOUCTOSW 
8020: LET L=0 LE MS="E" VPHEN) BET VSS 
“MEDEA ING. e BET \J=VAL 720% 
GO TO VAL "8110" 
8030° TESMS="5W@WPARN! (GET J=VAL "221": 
BET VSS"PE ULTIME 5cG, 
GO. "TO! VAL'"81-10" 
8.040 %EETJ=VARI020%: CES 60 SUB 
VAI " 7U*N: PRINT uvtmm tue 
INVERSE X;"T";: PRINT " TOTAL 
pre niet INVERSE: Xe!Glo PRINT 
IN CASA! Se TNVERSESX po 
°- PRINTy" FUORI": PAUSE O: 
LET I=X*(INKEYS="C")+(X+X)*( 
INKEYS="F") 
8050 IF M$="V" THEN LET J=VAL "188"- 
VAL "51"*(I=X)+VAL "3"*(I>X): 


I 


8060 


8070 


8080 


8090 


8100 


8110 


8120 


8130 


8140 


8990 


8995 


9000 


9010 


9020 


LET V$="VINTE" 
IF M$="N" THEN LET J=VAL "144"+ 
VAL "3"*(I=X)+VAL "55"*(I>X): 
LET. VS="PARI" 
IF MS="P" THEN. LET J=VAL "151"+ 
VAL "3"*(I=X)+VAL "58"*(I>X): 
LET V$="PERSE" 
IF M$="F" THEN LET J=VAL "158"+ 
VAL "3"*(I=X)+VAL "55"*(I>X): 
LET V$="FATTE" 


IF M$="S" THEN LET J=VAL "165"+ 
VAL ESISTE R) VAT IS 273) 
LET V$="SUBITE" 
IF J=VAL "120" THEN LET J=J+3*( 
I=X)+75*(I>X): LET G=VAL "23522" 
BIFVAL NO" LET LEVATOIO: 
LET V$=" "+ES (X+I*L TO L+I*L) 
+ n" RETI " 
POKE VAL "30817",J: RANDOMIZE 


USREVAL "308038: CLS ERIN 

VALM23659!" POKENI, XE MPRIND “SE 

RIBIS:TABBAVO ESSERLO 
THENCPRINT AT x, By ptrega vien 


1°) £ IURZE AT 
FOR F=X TO R: LET J=PEEK (VAL 
09994EE)k OPRENTUAS(JI) SENO 

THEN RANDOMIZE USR G: PRINT 
IF L=0 THEN PRINT TAB B;PEEK ( 
VAL "31019"+3J-K)-VAL "64"*(M$="I 
" 

) 
NEXT F: PRINT #0;AT 0,0;C$: 
PAUSE O: POKE I,X+X: GO TO 
VAL "8"*W 
BORDER VAL "7": 
PAPER VAL "7": CLEAR VAL "30781 
Us CLOAD'ELI CODE: LOAD EU CODEI: 
POKE VAL "23658",VAL "8": DIM A 
$(144,10) 
INK VAL "9": 


#13 


ENKEVA Dee 


LET W=VAL "1000": 
LET X=W=W: LET O=W<>W: LET B= 
VAL. "12": LET C$=" premi un tast 
o per continuare ": LET E$="PART 

ITEIN CASAFUORI ": LET p$s=" u 
PER USCIRE": LET N$="C1 GIR 
ONE ACI GIRONE BC2 GIRONE AC2 GI 

RONE BC2 GIRONE CC2 GIRONE D" 
PAPER 7: BORDER 7: CLS : PRINT " 
MENU' GENERALE""''" ">: INVERSE X 
FICA: PRINT AGGIORNAMENTO 
GLASSIFICHE" TW INVERSE X;"C" 
PRINT " CLASSIERCHBMMI se 
INVERSE Xp Lit PRINT" CARI 
CAMENTO DATES ETNVERSE Xxels 
PRINT " SALVATAGGIO DATI" 
INVERSE XE: PRINT“ 
CORREZIONE CLASSIFICHE"! '" 


o 
, 


e è 
r° 


Woo 
po 
VII No 
, 


U. 
, 


INVERSE X;"I";: PRINT " INIZ 

IALIZZAZIONE" 

LET L$=INKEY$: IF L$="A" THEN 
PAPER VAL "6": BORDER VAL "6": 
GO TO W 

IF L$="C" THEN BORDER VAL "5": 


PAPER VAL "5": GO TO W 


9030 IF L$="L" THEN PAPER VAL "2": 
BORDER VAL "2": GO TO VAL "4"*W 
9040 IF L$="S" THEN BORDER VAL "3": 
PAPER VAL "3": GO TO VAL "3"*W 
9050 IF L$="E" THEN PAPER VAL "4": 
BORDER VAL "4": GO TO W 
9060 IF L$="I" THEN BORDER X: 
PAPER X: GO TO VAL "6"*W 
[91/00 GONTO VAL "9010" 
9999 CLEAR : SAVE "R&C CALCIO" LINE 
VAL "8990" 
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5 
10 


20 


30 


40 


50 


60 


65 


70 


80 


90 


1:95 
200 


REM routine AGGIORNAMENTO 

DASTA!C33 710/074 417681737070, 410,97, 201 
FEBO R20 573911, 641 21,97 2357 
33 

DATA 082015737917, 15,,5:6t7112/10,:9)73/47, 
8591 0707126, 12:87 1019,.43,,12/6,.1 
29,119 

DATA 26, 129,,1:8729,26,,1)28,,.1:8 27,0 
25, 244.35, 12103/847,.6:25,,0,40,,.6,4 
Breil 
DA'PAM9:8},/614,,,357,27.,.198:,,64 521,235 
52,9 i25/723.0/2 25217811: 121k,2:05792 
917933708012: plz 

DATA:23/75,08, 198,128 7107,7 0.,25,94 
7281 2037iL972312:037 19,235 Ad 
355,,/60,,4,398 

DATARORA Al 132 116017:2497 235000197 
Z:0N7:0 

REM SUBroutines 

DATA 205, 1195, 91,205 ,1:3:77910724 7101, 
2:015/7203,917-205, 154.,,917,2057044/791 
r46,64,38, 121,25 

DATA 134,201,205,199,91,46,65,24 
7 244,205209,91,:4:6 760724 ,237,205 
7213947 46,,607,,24 

DATAF230205i21 4,9157467 68,24 233 
r205,.1.54-,,9î1#,237 205, 209,91, 205, 4 
Vi I2 37608798604 
DATA.24,3,205,137,9M,40,.69,24,20 
072/055, 19x7912346770,,24,192,205 
r LI9T917 205 91 

DATA 9146, 700, 24.1 B2:,,4/67,,1:2 724,17 
840037247 47 460,0247/24.,170,0 
REM routines STAMPA 

DATA ‘2057178 ,:120,120,,128,,188,144 
e 1575816572051 7871120123) V31 
3475461 A1682:05:, 1078 
DATA 120\,,95,:203,0191 19972097213 


PEA 
RESTORE 10: FOR F=23296 TO 23296 
+255: READ A: POKE F,A: NEXT F 


REM routine AZZERAMENTO . 

DATA42, Li367 01207 205,5 ,91, 125,205 
oral 706 dl 25,719, 175/1000785 
al61,,252:7: 2:00] 
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205 REM routine ORDINAMENTO 

2U04DATA®2.05:,0:7911.58,,18.6, 120417 2217 
SIA al 2 2:30 1 20 0, Dil 3 
2,042 Sip 19 

22004DATA::07 2:21 735 .1!67240/,,60 207733 724, 
li2alli45 pato 44 206.252, 4 4121, 
58,1 36 71420750 


230: DATA-l 60;,k:20:, 70.197 733,44, 121 pilu 
0,16,26,190,48,1,12,44,16,249,28 
r33,23,121 ; 
240 DATA 9,175,44,190,32,252,193,58, 
1,91,198,16,144,60,119,16,220,62 
124,50,188,120 


250. DATA ‘33, 08 ,647,34,181.,,,120 7,201 
255 REM SUBroutine II 


260 DATA 209,213,33,108,80,6,7,229,1 | 
97,42:,40:x1: 2:1:7,45,,3:8,7,0 20.5,,,3.,,9.la 19 i I 
3,235 t:26,101 

270 DATA 38,91,229,33,210,120,227,22 b) 
9, 175720730 2557, 1 4:2:p2257 254, V°0 i 


,48,4,13,44,24 

280 DATA 9,214,10,28,48,251,198,10,8 
12371984 8:72:2:,30:,23/,23.,,237203,, 1 
8,95,197,6 


290 DATA 8,76,26,119,28,36,16,250,44 le Novità Jackson puoi 
407.797 0937.813732, 2277442097 i ; . ; x 
28,213,16 acquistarle in via Mascheroni 14. 

300% DATA:11:7/4,:1*25), 19:81, 11, 1:11,,534-,:1:8)1,, 1 ; 6 IT ; 
20,33,188,120,52,209,201 a Milano e in tutte le migliori 

350 RESTORE 200: FOR F=30782 TO 3099 | ; 

9: READ A: POKE F,A: NEXT F librerie. 


400 SAVE "23296"CODE 23296,256: 
SAVE "30782"CODE 30782,218 


. ogn venerdì 
nedeol Troy 
., PAPERS 

dl tyo settimanale 
di sotluare si caxT9!! 


La biblioteca che fa testo. 
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di Luciano Prelli 


Un simpatico arcade dal tema 
originale 


L° scopo del gioco è quello di aiutare 
un'infermiera ad allattare i dieci 
neonati piangenti presenti nella “nurse- 
ry”. Questa è costituita da due stanze: 
a) la cucina, col pavimento blu, in cui si 
trovano, dall’alto verso il basso: 12 bi- 
beron, il frigorifero, i fornelli, il lavello; 
b) la sala, con pavimento a quadratoni, 
in cui si trovano i 10 neonati. 

In alto sono visibili: su fondo rosso il 
numero di neonati ancora da allattare; 
su fondo nero il numero di biberon a 
disposizione. In basso sono evidenziate 
le infermiere utilizzabili (oltre a quella 
“in campo”) e nel riquadro sottostante 
i punti e il tempo. 

Per raggiungere lo scopo (cioè allattare 
tutti i 10 neonati) bisogna, oltre che spo- 
stare la “nurse” con i soliti tasti del cur- 
sore, svolgere alcune “operazioni” spe- 
cifiche. Queste consistono nel: 

1) prendere il biberon; 

2) lavarlo; 

3) riempirlo di latte; 

4) scaldarlo. 

La prima operazione si esegue ponen- 
dosi al di sotto del biberon prescelto e 
premendo il tasto “B”: in alto il numero 
di biberon diminuirà di uno. 

Quindi bisogna portarsi in basso, nel- 
l'angolo più a sinistra, vicino al lavello: 
la pressione del tasto “L” fa sì che il 
biberon venga accuratamente lavato (!). 
Successivamente occorre guidare l’in- 
fermiera verso il frigorifero, posizionar- 
la esattamente davanti ad esso e prele- 
vare il latte (tasto “M”, dall’inglese 
“milk”). 

Infine, per scaldare il latte, bisogna por- 
tare la nurse vicino al fornello (2/3 su- 
periori di esso) e premere il tasto “S” 
più volte. Il grado di riscaldamento è 
indicato dal colore assunto dall’infer- 
miera (dal giallo al magenta): perché il 
neonato smetta di piangere il latte deve 
essere almeno “verde”. 

Una volta che la vostra infermiera si è 
ben ben colorata è necessario uscire 
dalla cucina, cioè oltrepassare la porta 
(“grate” gialle) che si chiude e apre 
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Linee 
10-25 
30 


40-110 
120 

130 

140 
220-240 


2502 

270-340 
400-500 
550-600 
650-700 
750-800 
850-900 


1000-1090 
2000-2130 


Commento 

presentazione 

richiama le subroutine di definizione caratteri e preparazio- 
ne dello schermo 

inizializzazione variabili 

stampa l’infermiera nella posizione (y,x) 

salta alla routine di stampa della porta 

memorizza la posizione attuale dell’infermiera 

aggiornano l’orologio; saltano alla fine, se il tempo è scadu- 
to (time 1=0) 

aggiorna il punteggio 

lettura tastiera e salto alla routine opportuna 

preleva il biberon 

flava il biberon 

prelevano il latte 

richiamano la routine di riscaldamento del latte (2200) 

se la posizione è esatta saltano alla routine di allattamento 
(2500) 

routine di movimento 

routine di stampa casuale della porta 
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automaticamente (ma a caso). Attenzio- 
ne: se la porta è chiusa, non si può 
passre, ma se si chiude mentre state 
passando perdete un’infermiera con re- 
lativo biberon (avete a disposizione 5 
infermiere e 12 biberon). Oltrepassata 
la porta bisogna portarsi a fianco di uno 


dei lettini dei neonati ancora piangenti 


(UEEH), nei 2/3 superiori -di@esso, sul 
lato destro, e allattare premiendo «il ta- 
sto “A”. SE 
L’infermiera tornerà di colore bianco e 
potrete ricondurla in cucina (attenti alla 
porta) per ricominciare. 

Il tutto va ripetuto per 10 volte (quanti 
sono i neonati), nel breve tempo di circa 
6 minuti (360 “secondi”): se vi sembra 
poco, potete assegnare alla variabile 
“time” un valore più alto (il massimo è 
1020 con l’orologio così com’è) oppure 
modificare il contatempo. 

I punteggi ottenibili sono: 

1) biberon = 5 punti; 

2) lavaggio = 10 punti; 

3) latte = 15 punti; 

4) riscaldamento = 5 punti per ogni gra- 
do (max 20 punti); 

5) allattamento = 50 punti; 

6) la porta, chiudendosi sull’infermiera, 
toglie 100 punti; 

7) se riuscite ad allattare tutti i neonati 
prima dello scadere del tempo, ottenete 
10 punti per ogni secondo risparmia- 
to; 

8) se totalizzate più di 250 punti, riceve- 
te altri 100 punti per ogni infermiera ri- 
sparmiata. 


Particolarità del programma 

1) linea 120: stampa i caratteri grafici 
relativi all’infermiera, a seconda del va- 
lore di due variabili: 

a) “d” = direzione del movimento (0=si- 
nistra; 1=destra). Viene modificata in 
linea 1040, a seconda del tasto premu- 
to: notare l’uso degli operatori logici. 
Serve a stampare l’infermiera corretta- 
mente girata verso destra o verso sini- 
stra. 

b) “car” = posizione delle gambe (0 = 
verticali; 1=oblique). Viene modificata 
in linea 1010 (car = NOT car : se car 
= 1 diventa car = 0 e viceversa). Serve 
a simulare la camminata dell’infermie- 
ra. 


Nursery 


versione per ZX Spectrum 16K/ 
48K 


2100 se l’infermiera passa mentre la porta si chiude, aggiorna il 
punteggio e la situazione 

2200-2230 routine di riscaldamento del latte 

2500-2590 routine di allattamento dei neonati. Se sono stati allattati 
tutti, salta alla 2800 

2800 segnala che tutti i neonati sono stati allattati e aggiorna il 
punteggio . ì 

3000-3110 fine del gioco 

4000-4470 preparano lo schermo 

5000-5050 preparano i.taratteri)grafici. 

6000-6190 DATA peri caratteri grafici e la musichetta 

7000-7010 SAVE del programma : 

di F- 


Descrizione delle variabili 


time contiene il tempo massimo per il gioco 

timel è il valore del tempo che viene calcolato e stampato 

pt punteggio 

nb numero di biberon a disposizione 

na numero di neonati ancora da allattare 

p variabile di controllo per la porta (1 = aperta; 0= chiusa) 

y linea a cui stampare la parte superiore dell’infermiera 

x colonna a cui stampare la parte superiore dell’infermiera 

car variabile di controllo per il movimento delle gambe 

d variabile di controllo per l'orientamento dell’infermiera 

bi assume il valore 1, se l’infermiera porta il biberon 

la assume il valore 1, quando il biberon viene lavato 

mi assume il valore 1, se è stato prelevato il latte 

sc assume il valore 1, se il latte è stato scaldato 

co contiene il colore di INK per la stampa dell’infermiera 

yl colonna a cui stampare uno spazio al posto dell’infermiera 
durante il movimento 

xl linea a cui stampare uno spazio al posto dell’infermiera 
durante il movimento 

i$ contiene una stringa corrispondente al tasto premuto 

Ren 5 variabili di controllo per vari cicli FOR...NEXT 

a,b,c, 


usate nella preparazione dello schermo e lettura dei DATA 


2) linea 220: orologio funzionante sulla 
variabile di sistema FRAMES posta nel- 
le locazioni 23672/23673. 

3) Funzione SCREEN$ì: ritorna, con ar- 
gomento (x,y), una stringa contenente 
il carattere presente nella posizione 
(x,y). Nel nostro caso l’infermiera può 
muoversi solo se la prossima posizione 
è uno spazio (“ ”). 

Le linee tracciate coi comandi grafici 
(PLOT, DRAW, CIRCLE) ed i caratteri 
grafici non vengono riconosciuti: il risul- 
tato è una stringa vuota (“”), diversa 


20 BORDER 1: 
21 PRINTCATIS 0 NU RASIEARI 
22CPRINTUAT L03198 

23 PRINT AT 12,8;"by Luciano Prelli 


quindi da uno spazio, per cui l’infermie- 
ra non può sovrapporsi a queste figure. 
Nel caso del riconoscimento della porta 


chiusa è ovvio che “#” è diverso da 
4) Funzione ATTR: ritorna, con argo- 
mento (y,x), il valore degli attributi nella 
posizione (y,x). E usata per evitare al- 
l'infermiera di camminare sui muri 
(ATTR=41)e per riconoscere i neonati 
(ATTR = 7 (bianco su nero) o ATTR = 
23 (bianco su rosso)). 


PAPER. l: INK,7: CLS 


TO REM ***X*XXXXKKXKKKKKKKXK%K 25 PRINT AT 18,9; FLASH l;"Attender 
11 REM * $ e prego" 

12 REM * NURSERY È 30 GO SUB 5000: GO SUB 4000 

13 REM * 1 40 LET time=360: LET pt=0: LET nb=1 
14 REM * by Luciano Prelli * 2: LET na=10: LET ni=28 

15 REM * È 50 FOR n=0.TO 3: PRINT AT 19,25+n;" 
16 REM * TRIESTE * N";AT 20,25+n;"O": NEXT n 

17 REM * È 60 PRINT AT 1,21; PAPER 2;na;AT 1,2 
18 REM KKKKAKAAKLAKAKAKAKAKAKLKAAKAAKA 6; PAPER 0;nb 

19 REM 70 REM Routine principale 
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80 


90 


100 
110 


120 


130 
140 
220 


230 


240 
250 
270 
280 
290 
300 
310 
320 
330 


340 
400 


450. 


500 
550 


600 
650 


700 
750 


800 
850 


900 
1000 
1010 
1020 
1030 


1040 


1050 


LET p=0: LET x=26: LET y=14: 
LET car=0: LET d=0 
LET bi=0: LET la=0" LET mi1=0= 
LET sc=0 
LET co=7 
PRINT INK 6; PAPER 8;AT 8,24; "# 
VAR 9,24;"&" 
PRINT PAPER®85% INK CO: AT'v.,Xr 
CHR$ (154+3*d);AT y+1,x;CHR$ (15 
5+3*d+car) 
GO TO 2000 
LET xl=x: LET yl=y 


LET timel=time-4*PEEK 23673- 

INT ((PEEK 23672)/64) 

IF timel<=0 THEN LET timel=0: 
PRINT #1;AT 0,24; FLASH 1;"FINI 

TO": GO TO 3000 

PRINT #1;AT 0,24;timel;" I 


PRIENTERIGAT- 0,85 pop 

LET iS=INKEYS 

IF i$="b" THEN GO TO 400 

TE! ASS" THEN» “G0” TO” 550 

IF i$="m" THEN GO TO 650 

TE* IS=US" THEN" *GOY TO* 7550 

IF i$="a" THEN GO TO 850 

IF i$>="5" AND i$<="8" THEN 

GO SUB 1000 

GO TO 120 

IF bi=0 AND y<=6 AND SCREENS$S (y- 
TX) <>teW* THEN PRENT' ‘PAPER 8 
TAT.YV= xe te dBEEP.0057,24 

LET bi=1l: LET nb=nb-1: LET pt=p 
t+5 PRINT». PAPER) 0; AT -1,26;" "n 


“ATA p2/6emb 
IF nb=0 THEN PRINT FLASH 1; 
PAPER 2;AT 1,25; "FINE" 


GO :TO "150 

IF la=0 AND y=14 AND x=25 AND bi 
=] THEN LET la=l: LET pt=pt+10: 
BEEP .005,24 

GO TO 150 


IF mi=0 AND y=8 AND x=26 AND bi= 


1 AND la=1l THEN LET mi=1: LET p 
t=pt+15: BEEP .005,24 
GO TO 150 


IF y=12 AND x=26 AND bi=l AND la 
=1 AND mi=l.,; THEN: LET sc=1l: 
BEEP .005,24: GO SUB 2200 

GO TO 120 

IF x<23 AND (y=4 OR y=7 OR y=11 
OR y=14) AND (ATTR (y,x-1)=7 
OR.ATTR (y,X-1)=23). AND -co<5 
THEN GO TO 2500 

GO TO 150 

REM Movimento 

LET car=NOT car 

BEBP! .02,=-25 

LET x=x+(1 AND i$="8")-(1 AND i$ 
25") 

LET d=(1 AND i$="8")+(0 AND iS$=" 
5U)Kk(AVANDE(isS="6!" 0Ri1S="7!0)) 

LET y=y+(1 AND i$="6")-(1 AND i$ 
27m) 


1060 


1070 


PRINT PAPER 8;AT yl,xl;" 
NE SALAME, 

TRESCRBENSE (Vi IOR 
ATTR (y,X)=41 THEN LET x=xl: 


AT 


LET y=yl 

IF SCREENS$S (y+1,x)<>" " OR 

ATTR (y+1,x)=41 THEN LET x=xl: 
LET y=y1 
RETURN 

REM Porta 

LET p=INT (RND*3) 

IF p THEN PRINT PAPER 8;AT 8,2 
Ag > ATL9, 24 BEBP:10027=20 
IF NOT p THEN IF SCREENS (8,24) 
=MMATHEN 60 TOX2100 

IF NOT p THEN PRINT ; INK 6; 


PAPER 8;AT 8,24;"#";AT 9,24;"#" 


: BEEP .003,-20 
GO TO 140 
FOR n=30 TO 0 STEP -1: BEEP .002 
n: BEEP .002,n-10: NEXT n 
LET pt=pt-100: IF ni=24 THEN 
GO TO 3000 


PRINTOAT MINI: 
LET ni=ni-1 

GO TO 80 

REM Riscalda 

FOR n=0 TO 50: NEXT n 

IF co=3 THEN RETURN 

LET. 'co=ce=l&aBEEP .:liy;li2=2*c0: 
LET pt=pt+5 

RETURN © 


REM Allatta 

PRINT PAPER 8;AT y-1,x-2;" Di 

FOR'"n=0<*TO 50: (BEEP. --004,n: 

BEEP .002,n-5: LET pt=pt+1: 
PRINT #1;AT 0,8;pt: NEXT n 

LET na=na-1 

PRINT AT 1,21; PAPER 2;na;" " 

IF na=0 THEN GO TO 2800 

IF nb=0 THEN GO TO 3000 

GO TO 90 

REM Tutti allattati 

PRINT #1;AT 0,15; FLASH 1; "BRAVI 
SSTMOr LI rt 

LET pt=pt+10*timel 

REM Fine 

LET pt=pt+100*((ni-24) AND (pt>2 
50)) 

PRINT le AT 0,895 po 

RESTORE 6180: FOR n=0 TO 12 


ESATA 20 si a 


READ a,b 
BEEP a,b 
NEXT n 
PRINT PAPER"8; AT y}Xx le ATA 
TOS " 
PRINT #1;AT 0,15;" DI NUOVO? 
" 
PAUSE |: PAUSE 0: IF .INKEYS="" 


THEN GO TO 3090 
IF INKEY$="s" THEN GO SUB 4330: 
GO TO 40 
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3110 STOP 4420 LET a=NOT a: NEXT m 

4000 REM Schermo 4430 PRINT AT 21,0; PAPER 0; INK 2;" 

4010 BORDER 0: PAPER 5: INK l: CLS : {SG4}{30G3}{G7}" 
LET a=l 4440 PRINT #1;AT 0,0; PAPER 0; INK 2; 

4020 FOR n=3 TO 17 Tse ENKU7S" PUNDILO Ne 

4030 FOR m=3 TO 23 TAB 18;"TEMPO 240 "; INK 2;TAB 3 la 

4040 PRINT AT n,m; PAPER 2*a;" ": Le {GODIN i 
LET a=NOT a 4450 PRINT #1; PAPER 0; INK 2;"{SG1} 

4050 PRINT AT n,24; PAPER 1;" " {30SG3}{SG2}" 

4060 NEXT m: NEXT n 4460 POKE 23673,0: POKE 23672,0 

4070 FOR n=1 TO 4 4470 RETURN 

4080 READ a: READ b: READ c: READ d 4480 RETURN 

4090 PLOT a,b: DRAW c,d 5000 REM Caratteri grafici 

4100 NEXT n SOTO”"FOR"®n=0% TO, 127 

4110 FOR n=0 TO 20 5020 READ a 


4120 PRINT AT n,24; PAPER 6; INK 2;"A | 5030 POKE USR "a"+n,a 
n - | 5040 NEXT n 


4130 IF n=7 THEN LET n=9 5050 RETURN 

4140 NEXT n 6000 REM Dati 

4150 INK 1 6010 DATA 219,219,195,219,27,219,219, 
4160 FOR n=24 TO 152 STEP 64 216 


4170 PLOT n,16: DRAW 32,0: DRAW -4,8: 6020 DATA 0,16,56,40,40,40,56,0 
DRAW -24,0: DRAW -4,-8: PLOT n+ 6030. DATA:..:1.5,,3.0:,.6.1 ,,3,5.27, 51,5 Did 3 


2,20: DRAW 28,0: PLOT n+16,16: 6040 DATA 240,120,188,196,216,156,236 
DRAW 0,8 7212 
4180 NEXT n 6050 DATA 43,43,35,58,58,48,47,31 
4190 PLOT 8,88: DRAW 0,32: DRAW 8,-4: | 6060 DATA 212,212,196,92,92,12,244,24 
DRAW 0,-24: DRAW -8,-4: PLOT 8, 8 
104: DRAW 8,0: PLOT 12,90: 6070 DATA 63,63,63,63,63,63,32,32 
DRAW 0,28 6080 DATA 252,252,252,252,252,252,4,4 
4200 FOR n=56 TO 120 STEP 64 -| 6090 DATA 0,160,160,174,168,236,8,14 


4210 PLOT n,168: DRAW 32,0: DRAW -4.- | 6100 DATA 0,10,234,142,202,138,224,0 
83 DRAW..-24,03, DRAW -4,83 PLOT D.l'“611b DATA 16,56,60,5091051 24,124, 124 


+2,164: DRAW 28,0: PLOT n+16,168 | 6120 DATA 124,60,60,126,126,36,36,108 
: DRAW 0,-8 


4220 NEXT n 6130 
4230 INK 7: PLOT 231,79: DRAW -15,0: 


DRAW 0,-24: DRAW 15,0: DRAW 0,2 6140 DATA 8,28,60,28,8,62,62,62 


DATA 124,60,60,126,126,36,66,198 


4 

6150 DATA 62,60,60,126,126,36,36,54 
VP mnazi e soi 6160 DATA 62,60,60,126,126,36,66,99 
SE S0:7CIRSEE 22010475 6170 DATA 0,8,24,24,255,8,-24,24,255, 


4260 CIRCLE 22:07,5:9,3, 1750-24 ,=24,0%1 1500241224 


e ld UO LA vo '’ po ', po LA po 
0: DRAW Dr DRAW 5.70 rapa ATO 64 
4280 PLOT Dal 2,328 DRAW 079 DRAW -9,0 6190 DATA (Bb ASA 
: DRAW 0,-9 7000 REM Save 
FC CIRCLE 204351 7010 SAVE "NURSERY" LINE | 


4300 PLOT 231,111: DRAW :=157 04 DRAWLO 
mb DRAW: (51,0 DRAW; 0. 5 

ASROMPLOT: 2191 DRAW 0,=15 

4320 NEXT n 

43530 FOR"n=z2:5 TO) 28 

4340 FOR m=3 TO 5 

4350 PRINT AT m,n; PAPER 8;"B" 

4360 NEXT m: NEXT n na 

4370 LET a=0 

4380 FOR m=4 TO 20 STEP 4 

439/0/FOR n=4 TO: VI STEP} 

4400 PRINT PAPER 8; INK 7;AT n+t3*a,m 
"CD": AT; nt1+3*a,m;"EF":AT! n+2+3 
*a,M;"GH"; INK 6;AT n-1+3*a,m;"I 
JA 

4410 NEXT n 
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I libri italiani vengono offerti con il 10/ 
di sconto sul prezzo di copertina 


di Lucio Bragagnolo 


Giochi con il computer - 
come funzionano, 
come si vince 


di Ian Graham 
a cura di Lisa Watts 
ed. Gruppo Editoriale Jackson 


1 secondo rappresentante dei libri 

“Speedy Computer” qui recensito ha 
un’attinenza solo indiretta col mondo 
Sinclair, diremmo più che altro delle af- 
finità: gli autori si incaricano questa vol- 
ta di accompagnare il lettore in un lungo 
viaggio nel variegato ed eterogeneo 
mondo del gioco dlettronico, campo — 
come si può ben capire — imparentato 
con l’informatica, ma non in modo ec 
cessivamente profondo. Il pianeta gioco 
viene esaminato in tutte le sue forme, 
dai giochi elettronici tascabili alle mac- 
chine da bar, alle consolle specializzate, 
ai personal computer. In realtà, nono- 
stante le differenze esteriori e di classifi- 
cazione, il cuore di tutti i marchingegni 
citati non è altro che un particolare 
computer, a volte specializzato, a volte 


piccolissimo ed elementare, a volte tut- 
tofare o incredibilmente potente. Il gio- 
co diviene così il pretesto per un interes- 
sante viaggio nell’hardware della mac- 
china, allo scopo di migliorare la com- 
prensione del funzionamento interno 
della macchina, a partire dai concetti di 
RAM e ROM o CPU fino ad arrivare a 
una spiegazione sommaria, ma per un 
non esperto più che sufficiente, di cosa 
siano i cristalli liquidi, o di come funzioni 
un joystick, o di cosa sia un adventure 
game. Non manca neppure una tratta- 
zione sommaria, ma interessante, dei 
vari filoni in cui si suddividono i giochi 
elettronici (avventure — educativi — ar- 
cade — simulazioni...), né di cosa rà 
e come funzionerà un ipotetico “gioco 
del 2000”. 

I patiti ad oltranza dei cosiddetti “coin 
— op” da bar potranno poi trovare, 
sparse qua e là tra le pagine di “Giochi 
con il computer”, tutta una serie di cu- 
riosità e consigli sui grandi miti di questa 
forma di divertimento, come “Pacman”, 
“QIX”, “Frogger”, “Battlezone”, “Gala- 
xian” e via dicendo. Sapevate ad esem- 
pio che “Asteroids” può visualizzare 
sullo schermo non più di 35 oggetti con- 
temporaneamente, e che questa limita- 
zione può portare sensibili vantaggi 
(provate a pensare perché) a un gioca- 
tore esperto? 

Non manca nemmeno, a completare 
questo sintetico, ma esaustivo, trattato 
sul gioco, un capitolo dedicato alla sto- 
ria dei giochi elettronici, dove gli inte- 
ressati potranno scoprire, altro esem- 
pio, che il primo videogioco inventato 
non è, come molti pensano, il celebre 
“Pong”, che imperversava fino a qual- 
che anno fa sui televisori di ogni parte 
d’Italia...; merita una menzione, infine, 
una sezione discretamente ampia dedi- 
cata ai giochi intelligenti e in particolar 
modo agli scacchi elettronici. 

Per riassumere, “Giochi con il compu- 
ter” si propone come una via di mezzo 


tra l’intrattenimento e l’informazione, 
servendosi di un argomento tutt'altro 


che serio, ma trattandolo non certo fu- 
tilmente. Il suo contenuto informativo 
non è davvero quello di un trattato 


scientifico, né la sua lettura aiuterà a 
sviluppare brillantissimi giochi d’avven- 
tura o di azione, magari scritti in lin- 
guaggio macchina: crediamo, però, che 
questo libro possa costituire una diver- 
tente e interessante pausa di rilassa- 
mento, davvero quello che ogni tanto 
occorre per combattere il famoso logo- 
rio della vita — non solo informatica -— 
moderna. 


Primi passi in BASIC - 
una facile guida per 
scrivere programmi 


di Brian Reffin Smith 
e Lisa Watts 
ed. Gruppo Editoriale Jackson 


} d dI 
primi passi @ 


rendiamo in esame nel corso di que- 
sta puntata di PRINT due libri di 
una nuova collana Jackson, intitolata 
“Speedy Computer”. 
Come già si intuisce dal suo titolo, i libri 
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in essa compresi hanno il compito di 
avvicinare il lettore ai computer “velo- 
cemente”, con spigliatezza e senza an- 
noiare con lurighi tomi di considerazioni 
spesso solo teoriche, a patto però di 
conservare la propria efficacia dal pun- 
to di vista didattico. 

L’approccio col lettore vuole essere 
così il più amichevole possibile: coperti- 
na coloratissima e più simile a quella di 
un libro per bambini piuttosto che a un 
testo di informatica, numerosi “dialo- 
ghi” sintetici e densi di informazioni, vi- 
gnette esplicative, grande colloquialità 
nel linguaggio: ecco le armi quasi più di 
seduzione che di convincimento usate 
dai libri “Speedy Computer”. 

Più dettagliatamente “Primi passi in 
BASIC” si propone di far esplorare un 
po’ alla volta al lettore il linguaggio più 
usato dai personal/home computer, 
esaminandone gradatamente le caratte- 
ristiche principali. Ogni punto delle 
spiegazioni è corredato da un breve 
esempio scritto in un BASIC il più possi- 
bile standard: dove le modifiche erano 
inevitabili, come nel caso della grafica 
o della gestione delle stringhe, al termi- 
ne del libro sono stati riportati i cambia- 
menti da eseguire. Il libro è stato realiz- 
zato in BASIC Apple; bisogna dire tut- 
tavia che vi è ben poco da cambiare, 
dato che la maggioranza dei listati gire- 
rà anche sul nostro amato ZX senza dif- 
ficoltà; in più l'acquisizione di qualche 
informazione sugli altri BASIC non fa 
certo male, e anzi può servire a valutare 
con maggior cognizione di causa quali 
siano i sistemi da preferire (e consigliare 
agli amici...), oltre che migliorare il pro- 
prio bagaglio di cultura informatica ge- 
nerale. 

Proseguendo nelle spiegazioni, gli 
esempi divengono progressivamente 
sempre più complessi, fino a fornire li- 
stati come quelli di un piccolo data base 
o di alcuni metodi di ordinamento di 
stringhe, per finire con alcuni simpatici 
giochini privi, intendiamoci, di effetti 
grafici e sonori (altrimenti il numero del- 
le modifiche da eseguire salirebbe alle 
stelle), ma ugualmente godibili dai prin- 
cipianti e utili per chi si accosta al libro 
per imparare. Non c’è molto altro da 
dire, anche perché l’efficacia di questi 
libriccini (solo in termini di volume) è 
data dalla valida mescolanza di testo e 
grafica, cosa questa difficile da eviden- 
ziare in una recensione solo scritta. Il 
modo migliore di convincersi della vali- 
dità degli “Speedy Computer” è quello 
di entrare in una libreria e aprirne qual- 
che pagina a caso, dopo avere compiu- 
to la stessa operazione su un testo con- 
venzionale: invece di lunghe e noiose 
trattazioni, cominciate pagine e pagine 
prima e che termineranno dopo altret- 
tanti fogli, si troveranno spiegazioni 
chiare, concise e precise, corredate da 
esempi concreti di rapidissima fruibilità, 
il tutto con un aspetto accattivante, che 
diventa familiare dopo la prima occhia- 
ta. Provare per credere...e per rimane- 
re conquistati. 
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imparare a programmare 
con lo ZX Spectrum 


di Rita Bonelli e Marco Spada 
ed. Gruppo Editoriale Jackson 


Ri Bonelli, apprezzata autrice di 
numerosissimi testi dedicati un po’ 
a tutta la famiglia degli home e personal 
computer, si ripresenta alla nostra at- 
tenzione con un altro ottimo libro ri- 
guardante lo Spectrum, diretto agli 
aspiranti programmatori. Questa volta 
l’approccio è però piuttosto differente: 
mentre nelle precedenti opere infatti — 
ci spiega l’autrice stessa nella sua prefa- 
zione —, pur rimanendo l’intento di in- 
trodurre alla programmazione, l’impo- 
stazione generale del libro si basava sul- 
l'apprendimento di uno specifico lin- 
guaggio di programmazione, questa vol- 
ta l’idea di fondo è di concentrare l’at- 
tenzione sulla realizzazione di un pro- 
gramma, partendo dalla sua prima con- 
cezione per approdare alla stesura fi- 
nale su-computer. Anche la scelta del 
linguaggio di programmazione utilizzato 
è in parte nuova, avendo l’autrice scelto 
di lavorare non solo in BASIC, ma an- 
che in Assembler, usando per l’occasio- 
ne l’abbastanza famoso editor della Pic- 
turesque, peraltro uno dei migliori sul 
mercato. La scelta del linguaggio mac- 
china non sconcerti comunque i poten- 
ziali lettori: chi vuole potrà avvalersene 
per superare le lungaggini e gli impicci 
del BASIC, e chi non è interessato al- 
l'argomento sarà contento di sapere 
che tutte le routine sono state debita- 
mente tradotte in linee DATA, ricopia- 
bili senza problemi col più lento, ma 
amichevole interprete dello Spectrum. 
Qualche novità dunque, anche se lo sti- 
le rimane quello a cui siamo stati abitua- 
ti dalla Bonelli: solido, logico, pragmati- 
co, qualche volta un po’ sbrigativo, ma 
sempre efficace e chiaro. Dicevamo del- 
l'impostazione di fondo basata sulla rea- 
lizzazione di un programma: dopo la 
prefazione e due capitoli introduttivi, in- 
caricati di chiarire agli incompetenti gli 
aspetti fondamentali dei computer in 
generale e della programmazione in 
particolare, si entra infatti subito in ar- 
gomento, presentando in ogni capitolo 
uno o più problemi teorici da “risolve- 
re”, concretizzandoli in un programma 
BASIC o Assembler attraverso tutti i 
passi necessari al raggiungimento del- 
l’obiettivo. Ci sentiamo a questo punto 
di fare una piccola critica, rilevando co- 
me alcuni dei temi scelti (come il calcolo 


del valore di un polinomio) siano di non 
immediata comprensione per il lettore 
medio, anche se, grazie all’impostazio- 
ne del libro, non è tanto importante la 
comprensione del problema quanto 
l'apprendimento del metodo necessario 
per risolverlo nel modo migliore. Ogni 
argomento viene comunque prima svi- 
scerato teoricamente, per poi essere 
man mano trasformato in un program- 
ma completo, che verrà infine presenta- 
to in forma definitiva. Durante tutto il 
percorso possiamo vedere una grande 
abbondanza di commenti e aiuti diretti 
a facilitare la comprensione del lettore. 
Per quanto riguarda l’output visivo no- 
tiamo la realizzazione dei testi, di buona 
estetica e leggibilità, ottenuta presumi- 
bilmente con una stampante a marghe- 
rita, mentre per i listati si è ricorsi a una 
classica Seikosha GP50S con nastro 
nuovo e ben oliata per l'occasione. Non 
mancano infine tabelle un po’ di tutti i 
generi, nitide e ben realizzate. 

Il tutto occupa circa poco meno della 
metà del libro; il resto delle pagine ospi- 
ta una vasta sezione di...appendici, le 
quali però, lungi dall’essere inutili pro- 


Rita Bonelli 
Marco Spada 
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lungamenti inseriti tanto per fare volu- 
me, a un esame anche solo superficiale 
rivelano di meritare il grande spazio ad 
esse destinato. La prima tratta di tutte 
le caratteristiche del BASIC Spectrum: 
precisione numerica, priorità delle ope- 
razioni (chi sa se lo Spectrum esegue 
prima il calcolo di una FN o uno “sli- 
cing”?), operatori logici, i cosiddetti 


“stream” usati per lo più nelle operazio- 
ni connesse all’uso di microdrive e inter- 
faccia 1, più una descrizione ricca ed 
esaustiva di tutte le parole chiave del 
BASIC Spectrum. 

Dato il gemellaggio che viene fatto nel 
libro tra BASIC e Assembler, non pote- 
va mancare una sezione riservata a que- 
st'ultimo: è l’appendice B, contenente 
una sintetica descrizione dei modi di in- 
dirizzamento dello Z80, insieme al- 
l’elenco di tutte le istruzioni Assembler; 
è presente anche una breve trattazione 
di alcune peculiarità del programma 
della Picturesque utilizzato, come già 
detto, dall’autrice. 

La terza appendice, molto rara a tro- 
varsi in analoghe pubblicazioni, è estre- 
mamente preziosa: contiene difatti una 
serie di utilissimi consigli sull’utilizzo ot- 
timale della memoria dello Spectrum, 
una dettagliata documentazione su tut- 
te le variabili di sistema — comprese 
quelle relative ai rapporti tra ZX e inter- 
faccia 1 — e varie informazioni sulla ge- 
stione dello stack, il tutto condito dal- 
l'indicazione di vari trucchi tra i più co- 
munemente usati per risparmiare me- 
moria. L’appendice D si intitola “Carat- 
teri e codici del sistema” e si occupa 
del set di caratteri ASCII, distinguendo 
tra caratteri stampabili, caratteri di con- 
trollo (gli osservatori più acuti scopri- 
ranno la presenza di un carattere usato 
per proteggere i programmi registrati 
su microdrive) e token, cioè le parole 
chiave contenute nel set ASCII dello 
Spectrum a partire dal codice 165, cor- 
rispondente a RND. Questa è anche 
l’ultima appendice importante: seguono 
ancora brevi sezioni dedicate a stam- 
panti, uso della tastiera e interfaccia 1, 
di cui la prima francamente piuttosto 
inutile e le altre tutto sommato nella 
normalità. 

“Imparare a programmare con lo ZX 
Spectrum” è un libro decisamente ben 
realizzato. Il suo unico (veniale) difetto 
è di indulgere a volte eccessivamente 
verso un tono troppo asettico, quasi ac- 
cademico, ma sa farsi perdonare ade- 
guatamente, grazie al grande quantitati- 
vo di informazioni preziose in esso conte- 
nuto, certamente di valido aiuto per i pro- 
grammatori di ogni livello e capacità. 


I libri possono 
essere ordinati 
utilizzando il 
coupon pubblicato 
a pag. 82 ° 


I QUADERNI 
JACKSON 


DI PERSONAL COMPUTER 


Quaderni Jackson: 
l'informatica a tutti i livelli, in 
una collana aperta, pratica, 
essenziale, aggiornata. 

Tutto quello che è 
importante sapere sui 
computer, la programmazione, 
i linguaggi, il software, le 
applicazioni e i nuovi sviluppi 
dell’informatica. 

Ogni mese, 2 volumi. 


‘Volumi già pubblicati: 
Gianni Giaccaglini 
“Vivere col Personal Computer” 


Paolo Bozzola 
“Dentro e fuori la scatola” 


Enrico Odetti 

"Ed è subito BASIC Vol. I” 
“Ed è subito BASIC Vol. II” 
Paolo Capobussi 

e Marco Giacobazzi 

“A ciascuno il suo Personal” 
Fulvio Francesconi 

e Fernando Paterlini 

“To do or not to do” 

Gianni Giaccaglini 

“Strutturare il software” 
Enrico Odetti 

“Dizionarietto informatichese” 


In edicola, 
a sole lire 6.000. 


GRUPPO 
EDITORIALE 
JACKSON 
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Questa puntata di ZX CLUB è dedicata 
interamente al GRUPPO UTILIZZA- 
TORI COMPUTER SINCLAIR/MSX 
NAPOLI. Ricordate il viaggio intrapre- 
so in Inghilterra da alcuni soci del club 
in visita agli stabilimenti Sinclair? 
Orbene, Emilio TRIUNFO ed Edgardo 
BELLINI ci presentano un articolo sulla 
storia della Sinclair, e di Sir Clive in 
particolare, frutto delle loro peregrina- 
zioni. Prima di lasciare la parola agli 
autori (vedrete che il materiale è tanto 
e interessante), ecco l'indirizzo del club: 
Gruppo Utilizzatori Computer Sinclair 
MSX/Napoli 

c/o Roberto Chimenti 

via Luigi Rizzo 18 

80124 NAPOLI NA 

(Tel. 081/7623121) 


Sinclair: oltre il sipario 


di Emilio Trinfuo 

e Edgardo Bellini 

Da questo numero prende inizio una ru- 
brica che intende far conoscere — come 
suggerisce il titolo — i retroscena meno 
noti del favoloso mondo Sinclair. 
Partiremo, quindi, con la biografia del 
nostro “padre spirituale”, Sir Clive Sin- 
clair, per proseguire con la descrizione 
di una visita alla Sinclair Research di 
Cambridge, nonché alcune interessanti 
interviste ad alcuni componenti e pro- 
gettisti dello staff della Sinclair, ed ulte- 
riori articoli che vi introdurremo di volta 
in volta. 
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PRIMA PARTE 

Clive Sinclair compare sulla sce- 
na: 1962-1979 

Clive Sinclair nacque a Londra nel 
1940. Si diplomò al St. George College 
di Weybridge all’età di 17 anni; per 
quattro anni lavorò per diverse riviste, 
in particolare di scienza e di tecnica. 
Nel 1962 fondò a Islington, nei pressi 
di Londra, una società di cui fu il mag- 
gior azionista: la Sinclair Radionics. | pri- 
mi prodotti di questa piccola azienda 
furono kit di radio ed amplificatori, la 
cui vendita avveniva tramite ordinazio- 
ne per posta. Da questo momento la 
Sinclair si impose come pioniere nel 


campo dell'elettronica da consumo, in 
particolar modo nell’elettronica minia- 
turizzata (non dimentichiamo che negli 
anni ’60 le radioline tascabili erano con- 
siderate prodotti di alta tecnologia, co- 
me oggi si considerano i computer). 
La diffusione dei prodotti dell’elettroni- 
ca ebbe un tale impulso che nel 1967 
gli utili della società superarono il mi- 
liardo di lire (qui e più innanzi ci riferire- 
mo sempre alla valuta italiana corren- 
te), e la gamma dei prodotti includeva 
anche sistemi HI-FI. Mr. Sinclair decise 
allora di trasferirsi a Cambridge e più 
tardi, nel 1972, data la continua espan- 
sione della società, a St.Ives. 

Nel 1973 la ormai famosa Sinclair 
Radionics lanciò l’Exective, il primo vero 
calcolatore tascabile del mondo. Costa- 
va poco più di 100.000 lire, un prezzo 
veramente irrisorio per quei tempi in 
cui i circuiti integrati erano una cosa 
poco nota! Il suo successo fu quasi ina- 
spettato: il progetto Executive vinse nu- 
merosi premi e la vendita del pocket- 
calculator fruttò, sul solo mercato este- 
ro, entrate superiori ai 20 miliardi di 
lire. Questo enorme successo commer- 
ciale fece sì che la Sinclair divenisse la 
Numero Uno del mercato inglese delle 
calcolatrici. 

Dal 1973 la Sinclair, sempre sotto la 
saggia direzione di Mr. Sinclair, spinta 
dalla prospettiva di un mercato di elet- 
tronica sempre più ampio, investì grossi 
capitali nella ricerca e nello sviluppo di 
altri prodotti, quali orologi digitali, tele- 
visori tascabili e misuratori elettronici. 
Nel 1975 fu lanciato un multimeter digi- 
tale a basso costo, il DM2, contempora- 


neamente a un orologio da polso, il 
Black Watch. 

Fino al 1976 la Sinclair Radionics ha 
goduto di 15 anni di crescita dei profitti, 
grazie ai grossi giri di affari; in questo 
periodo la società sostenne piccole per- 
dite, dovute alla difficoltà di progetta- 
zione del Black Watch. 

Di conseguenza vi fu una carenza di fon- 
di disponibili per l’ultimo stadio del pro- 
getto pocket-tv, ma i fondi necessari 
furono trovati egualmente; nel dicem- 
bre del ’76 la National Enterprise Board 
decise di fare un’aggiunta di capitale e 
fu così che nel gennaio del ’77 fu lancia- 
to il pocket-tv di soli 2 pollici, primo al 
mondo per le sue dimensioni, dopo un 
programma di studi, ricerche e sviluppo 
durato 12 anni, e che era costato com- 
plessivamente vari miliardi di lire. 

La ricerca sulla miniaturizzazione, sco- 
po principale di Mr. Sinclair, fece pro- 
gressi così notevoli che nel novembre 
del ’78 fu introdotta una nuova versione 
di TV tascabile, il microvision, molto più 
economico del suo predecessore. 

Altri settori dell’elettronica di consumo 
furono invasi dalla Sinclair Radionics tra 
il 77 ed il ’78: prima una calcolatrice 
tascabile, caratterizzata da importanti 
innovazioni tecnologiche, poi due nuovi 
tipi di calcolatrici di ufficio, ed infine la 
Cambridge Programmable, una calcolatri- 
ce che costava il 75% in meno delle con- 
correnti. 

Nel settembre 1978 la società decise di 
rafforzare la produzione delle calcolatri- 
ci tascabili, concentrandosi su un mo- 
dello il cui costo era inferiore alle cento- 
mila lire. 

Nel campo dei misuratori elettronici 
Sinclair introdusse sul mercato tre nuo- 
vi modelli di multimetri digitali, che con- 
dussero la società ai primi posti nella 
produzione mondiale di elettronica di 
consumo. 

Si arriva così al 1979, anno in cui la 
Sinclair e la N.E.B. decisero di scindersi, 
poiché i loro interessi non erano più 
coincidenti: la N.E.B. si dedicò comple- 
tamente al campo dei misuratori elet- 
tronici, mentre Clive Sinclair, dopo aver 
sciolto la Sinclair Radionics, fondò nel 
luglio 1979 la ben nota ed ormai famo- 
sissima Sinclair Research, per lanciarsi 
esclusivamente nel campo dell’elettro- 
nica d’avanguardia. 


SECONDA PARTE 

Il trionfo di Clive Sinclair: 
1979-1984 

La Sinclair Research lanciò il suo primo 
prodotto nel Febbraio 1980: il vecchio 
e caro ZX80, capostipite degli home 
computer Sinclair; esso fu venduto in 
più di trenta paesi ad un prezzo di po- 
che centinaia di migliaia di lire. 

Forse non tutti i sinclairisti lo conosco- 
no, e perciò ne vogliamo ricordare qual- 
che caratteristica, dato che noi stessi vi 
abbiamo fatto esperienza! Poco più pic- 
colo del foglio su cui state leggendo (!), 
esso era costituito esternamente da una 
scatola di plastica bianca e da una ta- 


stiera piatta a membrana. Nel suo inter- 
no vi erano 14 circuiti integrati, compre- 
sa una Z80 (e non Z80A), una ROM da 
8K e una RAM di... 1K(!!!). 

Oggi uno ZX80 se lo potrebbe compra- 
re solo un antiquario, un amatore di 
pezzi da museo, ma a quell’epoca (il 
ricordo ci sembra lontano, poiché anche 
pochi anni di evoluzione elettronica si 
potrebbero paragonare ad un secolo di 
storia!) Sir Clive predisse che il primo 
vero home computer del mondo avreb- 
be avuto un successo strepitoso; e così 
fu: prima che la produzione fosse bloc- 
cata nell’Agosto 1981 furono venduti 
più di 100.000 ZX80, di cui il 60% ri- 
guardava il solo mercato estero. Secon- 


do le previsioni di Mr. Sinclair la grossa 
diffusione del computer “domestico” 
era ormai avviata, con sviluppi futuri 
che solo cinque anni fa non si sarebbero 
certo immaginati! Clive Sinclair aveva 
così diffuso in tutto il mondo l’idea del- 
l’home computer. 

Allo ZX80 successe in breve tempo lo 
ZX81, versione riveduta e corretta, che 
sirtetizzava i precedenti 14 intergrati in 
soli 4 (CPU,ROM,RAM,ULA)); il suo co- 
sto è oggi sceso sotto le 100.000 lire 
(quasi una calcolatrice!), dopo aver vin- 
to nel 1982 il premio del Consiglio di 
Progetto e dopo essere stato venduto 
in oltre 50 paesi, totalizzando una ven- 
dita complessiva di circa 1.150.000 
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pezzi prima della fine del 1983. 
Nell’Aprile 1982 si arrivava così allo 
ZX Spectrum, le cui vendite hanno su- 
perato il milione di unità già nel Dicem- 
bre 1983. In peco più di cinque anni 
l’ormai Sir Clive Sinclair aveva condot- 
to la sua società ai vertici mondiali nel 
campo degli home computer, dando la 
scintilla iniziale al “fenomeno compu- 
ter” che tutt'oggi stiamo vivendo. 
Come ulteriore affermazione della Sin- 
clair nel campo della miniaturizzazione, 
Sir Clive ha presentato nel Settembre 
1983 il pocket TV dalle dimensioni in- 
credibili (14x9x3 cm), costato 8 miliardi 
di lire in investimenti e sei anni di inten- 
sa ricerca presso il laboratorio di ricerca 
Metalab. 

Per il futuro la Sinclair sta collaborando 
con la ICL per lo sviluppo di una work- 
station telefonica a bassissimo costo, 
che usa la tecnologia Sinclair dei Micro- 
drive ed il Sinclair BASIC; il tutto do- 
vrebbe fungere da periferica per un 
nuovo modello di computer. 

Oramai una cosa è certa: la secolare cit- 
tadina di Cambridge, già famosa in tutto 
il mondo per le sue università, si può 
considerare meritevole del titolo di Sili- 
con Valley inglese, se non addirittura 
europea; non dimentichiamoci che Sir 
Clive, nel suo micromondo, è stato ca- 
pace di dar filo da torcere a industrie 
del settore, giapponesi ed americane. 
Ma l’eccezionale intraprendenza di que- 
st'uomo non si è fermata al campo del- 
l'elettronica; infatti, nel giugno 1981 ha 
fondato, con un socio, una società edi- 
trice, la Sinclair-Bròwne, la cui produzio- 
ne si incentra su libri che trattano i pro- 
blemi della società contemporanea. 
Nello stesso campo ha anche istituito 
un premio annuale di 5000 sterline da 
assegnarsi al libro con la miglior trama 
e col più significativo contenuto sociale 
e politico. 

Con la lenta e graduale costruzione del 
suo mini-impero Clive Sinclair testimo- 
nia la sua appartenenza alla grande tra- 
dizione dei self.-made man, si delinea 
così sempre più la figura di un uomo 
dalle grandi capacità, le cui azioni sono 
guidate da saggia riflessione nonché so- 
luzioni geniali, la cui applicazione non 
può altro che generare successo e ric- 
chezza; non a caso egli, oltre ad essere 
il presidente della Sinclair Research e 
del Mensa — associazione mondiale di 
super-intelligenze — è stato nominato, 
nel 1983, Young Business Man ed espo- 
nente della Computer Age della deca- 
de. 

Infine, nel giugno 1983 ha ricevuto il 
maggior riconoscimento ufficiale: è sta- 
to nominato baronetto, in quanto pre- 
sente nella lista d’onore della regina. 
Oggi Sir Clive divide il suo tempo tra 
Cambridge e Londra quale grande uo- 
mo d’affari; oltre all'elettronica i suoi 
interessi comprendono il teatro, la poe- 
sia, la musica (è il curatore dell’orche- 
stra sinfonica di Cambridge), le scienze 
matematiche ed infine la corsa; e pro- 
prio a proposito di corsa vi possiamo 
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assicurare che il nostro carissimo Clive 
si sgranchisce ogni mattina le gambe 
correndo per ben 8 chilometri; que- 
st’estate ha partecipato, come ogni an- 
no, alla half-marathone, organizzata dal- 
la Sinclair per inaugurare il Cambridge 
Festival, percorrendo quasi 22 Km in 
meno di 90 minutil... 

In conclusione, non ci resta altro da 
dire che Sir Clive Sinclair è certamente 
uno dei pochi uomini al mondo estrema- 
mente polivalenti, che vivono in com- 
pleta armonia con se stessi, con la natu- 
ra e con gli altri: proprio in occasione 
della maratona abbiamo avuto il piace- 
re (e, non vi nascondiamo, la grande 
felicità) di conoscerlo di persona e vi 
possiamo assicurare che di persone sim- 
patiche e, allo stesso tempo, cordiali co- 
me lui ne esistono veramente poche! 


PARTE TERZA 

Gli altri protagonisti: lo staff di- 
rettivo della Sinclair 

Non sono certo meno degni di nota tutti 
i grandi manager che, avviati dai prezio- 
si consigli del loro presidente Sir Clive 
Sinclair, concorrono a tenere alto il no- 
me della Sinclair Research in tutto il 
mondo, grazie al loro operato. Ecco i 
principali artefici del grande successo 
Sinclair: 


Nigel Searle, amministratore delegato: 
è il responsabile di tutte le attività; lavo- 
ra per la Sinclair dal 1972 ed è stato, 
durante il biennio 1980-81, il direttore 
della Sinclair Research USA. 


Richard Cutting, vice amministratore 
delegato: è il responsabile del nuovissi- 
mo Metalab; entrò a far parte della Sin- 
clair nel Luglio 1982, dopo essere stato 
amministratore delegato della Cambrid- 
ge Consultant dal 1972. 


Dave Chatten, direttore di produzio- 
ne: è responsabile della produzione di 
tutti gli articoli Sinclair; è entrato alla 
Sinclair nel Giugno 1970 e dal 1980 
lavora alla progettazione computer. 


Bill Matthews, segretario della Socie- 
tà e direttore dei Servizi Corporativi: 
entrò alla Sinclair nel 1982, dopo esser 
stato vice presidente esecutivo di una 
società di Houston. 


David Southward, direttore della ri- 
cerca e dello sviluppo progettazione: si 
imbattè nella Sinclair nel 1977 ed è sta- 
to unico responsabile della pianificazio- 
ne e quindi dello sviluppo del progetto 
del pocket TV. 


dim Westwood, vice direttore della 
ricerca: è il più vecchio collaboratore di 
Clive Sinclair; infatti ha partecipato alla 
realizzazione dei principali progetti sin 
dal lontano 1963. E stato specialmente 
coinvolto nella progettazione e nello svi- 
luppo dello ZX80. 


ERRATA CORRIGE 


A causa di un disguido 
la paternità del 
programma “Boxe” 
pubblicato su 
SUPERSINC datato 
Luglio/Agosto 1985 è 


stata erroneamente 
attribuita a Gianpaolo 
Gentili. 


In realtà il programma è 


stato realizzato da 
Pietro Rosato di 
Pescara. Ci scusiamo 
per l’inconveniente con 
gli interessati. 
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Il primo settimanale di software 

su carta per il tuo personal computer. 
Un appuntamento al quale non puoi 
mancare ogni venerdì in edicola. 
Nato in edizione unica, per i più 
diffusi home e personal 
computer, dal l Aprile, 

allo stesso prezzo, saranno 

in edicola le versioni dedicate 
ai prodotti Sinclair (ZX81, 

ZX Spectrum e QL) e ai 
prodotti Commodore (VIC20, 
C16 e C64). 

In più un'edizione esclusiva 
per gli utenti dei personal 
Apple, gli home computer 
Texas e i nuovissimi sistemi MSX. ) 
Una grossa novità: la possibilità 
di abbonarsi dal 1 Aprile 1985 
al 31 Dicembre 1985 per ricevere 3 
38 numeri del settimanale di @ 
comodamente a casa con un 

notevole risparmio. Chi si abbona SOTC 
riceverà ogni 15 giorni 2 numeri EDITRICE & 

di PAPERSoft 

in anticipo rispetto 
all’uscita in edicola. 
Non perdere questa 
occasione! 
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Tagliando abbonamento a PaperSoft da inviare in busta chiusa a: 
1 soft - V.le Restelli, 5 - 20124 MILANO 


O Abbonamento a 38 numeri di PaperSoft al prezzo speciale di L. 30.000 anziché L. 38.000 


O edizione Sinclair (PS01) edizione Commodore (PC01) D edizione Apple/T199/MSX (PV01) 


O contanti allegati O assegno allegato n. 


Compila subito 
il coupon qui 


ho versato l'importo sul c.c.p. n. 19445204 intestato a J.soft - MILANO 


riportato e spediscilo Cognome Non 
(o de Via Città 
J.soft Capi ir er NA 


V.le Restelli, 5 


Firma 


SUPERSINGC Imparare a programmare 


CEDOLA DI ORDINAZIONE - CASSETTE con lo ZX Spectrum cod. AJAK037 L. 25.600 


Giochi con il computer - come 
rig rarmiglonli sono Lg ES funzionano come si vince cod. AJACO61 L. 8.100 


Primi passi in BASIC - una facile guida 
per scrivere i programmi cod. AJAK040 L. 8.100 
Ordino i seguenti libri per un importo totale di L. 


come contributo fisso per spese di spedizione 


D Ho spedito l'importo a mezzo vaglia postale 
[ Ho versato l’importo sul ccp n° 19445204 intestato a J.soft - Milano 


[] Pagherò in contrassegno al postino al ricevimento dei volumi (valido solo per i 
soci in Italia) 


SUPERSING è bello, però... (ovvero suggerimenti, 
idee, critiche, richieste e tutto ciò che vi passa per 
la testa). 


_ natur 


pi 


| tascabili Jackson sono uno 
strumento prezioso per chi lavora 
con il computer. 


SINCLAIR SPECTRUM cod. 017H 
VIC 20 cod. 005H 

COMMODORE 64 cod. 002H 

PC IBM cod. 018H 

APPLE Ilc cod. 003H 

SHARP MZ80A cod. 014H 

LA PROGRAMMAZIONE cod. 004H 
WORD STAR cod. 008H 

UNIX cod. 009H 

LOGO cod. 020H 

MS-DOS cod. 019H 

PROGRAMMI DI STATISTICA cod. 
015H 

CP/M cod. 011H 

PC-DOS cod. 012H 


Ja 


BASIC cod. 007H 
ASSEMBLER 280 cod. 016H 
ASSEMBLER 6502 cod. 013H 
COBOL cod. 001H 

FORTRAN 77 cod. 010H 
PASCAL cod. 006H 


OGNI TASCABILE COSTA L. 8.500 


almente. 


------------>&-- 


ritagliare (o fotocopiare) e spedire in busta chiusa a: 
GRUPPO EDITORIALE JACKSON - Divisione Libri - Via Rosellini, 12 - 20124 Milano 


CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 


Prezzo unitario Prezzo totale 


I n° copie codice Il Titolo 


Totale 
© Pagherò contrassegno al postino il prezzo indicato più L. 3.000 per contributo fisso spese di spedizione. 


Condizioni di pagamento con esecuzione del contributo spese di spedizione 
I O Allego assegno della Banca O Allego fotocopia del versamento sul c/c .n. 11666203 a voi intestato 


I N° DEI D) Allego fotocopia di versamento su vaglia postale e voi intestato 


Nome e Cognome 


I Via 


Cap Città Prov. 
Jeae ad Firma è 
Spazio riservato alle Aziende Si richiede l'emissione di fattura ORDINE 
MINIMO 
Partita iva LI 1 IT TLLILILLL] L. 50.000 


SUPERARE DAL PROGRESSO 


a eo Vl RC 


È 


NON FARTI 


| 1% 
fi 
i 
/ 


{| 


Aggiornati con gli 


e “Aggiornamenti” 
= ENCICLOPEDIA  : 
DI ELETTRONICA" - 
DÈ, & INFORMATICA 
A 2 () Fascicoli SETTIRIANALI DA RUBGARE 


IN DUE NUOVI E SPLENDIDI VOLUMI 


fi 
tal 


. 
pi È 
VIE 
du 


4 


; 2 
PER TE, PER IL TUO LAVORO, PER | TUOI STUDI... 


1 Aggiornamenti 
le nuove conquiste dell’Elettronica di Base, 
delle Comunicazioni, dell’ Elettronica 
Digitale, dei Microprocessori, 
dell’Informatica... 


2 Il personal computer 
tutto quello che c’è da sapere sul Personal 
Computer: che cos'è e cosa fa; come fa 
e come si fa; i linguaggi di programmazione; 
le applicazioni... 


E.I. si aggiorna e ti aggiorna 


il 18 settembre 


batti sul tempo il progresso! 
Corri in edicola a comprare il 
so! 


aio L.® 
sr 


ANCORA UNA VOLTA (' -g GRuPPo _ 
“PRIMI SUL FUTURO” pi fracon 


SAN FRANCISCO - LONDRA - MILANO 


